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1 Basic Ada 


1.1 "Hello, world!" programs 


1.1.1 "Hello, world!" 


A common example of a language's syntax! is the Hello world program?. Here is a 


straightforward Ada Implementation: 





File: hello world 1.adb 


with Ada.Text IO 


procedure Hello is 
begin 

Ada.Text IO.Put Line("Hello, world!"); 
end Hello; 











'The with statement adds the package Ada.Text IO to the program. This package comes 
with every Ada compiler and contains all functionality needed for textual Input/Output. 
The with statement makes the declarations of Ada Test IO available to procedure Hello. 
'This includes the types declared in Ada.Text IO, the subprograms of Ada.Text IO and 
everything else that is declared in Ada.Text, IO for public use. In Ada, packages can be 
used as toolboxes. Text IO provides a collection of tools for textual input and output in 
one easy-to-access module. Here is a partial glimpse at package Ada.Text IO 





package Ada.Text IO is 

type Filepype is limited private; 

— — morestuf f 

procedure Open(File : in out Filerype; 
Mode : Filey ode; 
Name : String; 
Form : String := ””); 

— — morestuf f 


procedure Putrine (Item : String); 


— — morestuf f 














il http://en.wikipedia.org/wiki/Syntax /28programming languages/29 
2 http://en.wikipedia.org/wiki/Hello world program 
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end Ada.Text]0O; 











Next in the program we declare a main procedure. An Ada main procedure does not need 
to be called "main'. Any simple name is fine so here it is Hello. Compilers might allow 
procedures or functions to be used as main subprograms. ? 


The call on Ada. Text. IO.Put Line writes the text "Hello World" to the current output file. 


A with clause makes the content of a package visible by selection: we need to prefix the 
procedure name Put, Line from the Text IO package with its full package name Ada. Text - 
IO. If you need procedures from a package more often some form of shortcut is needed. 
There are two options open: 


1.1.2 "Hello, world!" with renames 


By renaming a package it is possible to give a shorter alias to any package name.^ This 
reduces the typing involved while still keeping some of the readability. 





File: hello world 2.adb 


with Ada.Text IO 


procedure Hello is 
package IO renames Ada.Text I0; 


begin 

IO.Put Line("Hello, world!"); 

IO.New Line; 

IO.Put Line("I am an Ada program with package rename."); 
end Hello; 











1.1.3 "Hello, world!" with use 


The use clause makes all the content of a package directly visible. It allows even less typing 
but removes some of the readability. One suggested 'rule of thumb': use for the most used 
package and renames for all other packages. You might have another rule (for example, 
always use Ada.Text IO. never use anything else). 





3 Main subprograms may even have parameters; it is implementation-defined what kinds of subprograms 
can be used as main subprograms. The reference manual explains the details in 10.2 LRM 10.2(29) 
^([http://www.adaic.org/resources/add content/standards/Obrm/html/RM-10-2.html) : “..., an 
implementation is required to support all main subprograms that are public parameterless library 
procedures." Library means not nested in another subprogram, for example, and other things that 
needn't concern us now. 

4 renames can also be used for procedures, functions, variables, array elements. It can not be used for 
types - a type rename can be accomplished with subtype. 


Compiling the "Hello, world!" program 








File: hello world 3.adb 


with Ada.Text IOuse Ada.Text I0; 


procedure Hello is 


begin 

Put Line("Hello, world!"); 

Neu Line; 

Put Line("I am an Ada program with package use."); 
end Hello; 











use can be used for packages and in the form of use type for types. use type makes only 
the operators? of the given type directly visible but not any other operations on the type. 


1.2 Compiling the "Hello, world!" program 


For information on how to build the "Hello, world!" program on various compilers, see the 
Building? chapter. 


1.2.1 FAQ: Why is "Hello, world!" so big? 


Ada beginners frequently ask how it can be that such a simple program as "Hello, world!" 
results in such a large executable. The reason has nothing to do with Ada but can usually 
be found in the compiler and linker options used — or better, not used. 


Standard behavior for Ada compilers — or good compilers in general — is not to create the 
best code possible but to be optimized for ease of use. This is done to ensure a system that 
works "out of the box" and thus does not frighten away potential new users with unneeded 
complexity. 


The GNAT project files, which you can download’ alongside the example programs, use 
better tuned compiler, binder and linker options. If you use those your "Hello, world!" will 
be a lot smaller: 





32K ./Linux-i686-Debug/hello_world_1 
8.0K ./Linux-i686-Release/hello_world_1 

36K ./Linux-x86_64-Debug/hello_world_1 

12K ./Linux-x86 64-Release/hello world 1 

1.1M ./Windows NT-i686-Debug/hello world 1.exe 
16K ./Windows NT-i686-Release/hello world 1.exe 
32K ./VMS-AXP-Debug/hello world 1.exe 

12K ./VMS-AXP-Release/hello world 1.exe 














5 Chapter 37 on page 301 
6 Chapter 3 on page 29 
T https://sourceforge.net/project/showfiles.php?group id-124904 
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For comparison the sizes for a plain gnat make compile: 





497K hello world 1 (Linux i686) 

500K hello world 1 (Linux x86 64) 

1.5M hello world 1.exe (Windows NT i686) 
589K hello world i.exe (VMS AXP) 











Worth mentioning is that hello world (Ada,C,C++) compiled with GNAT/MSVC 
7.1/GCC(C) all produces executables with approximately the same size given comparable 


optimisation and linker methods. 


1.3 Things to look out for 


It will help to be prepared to spot a number of significant features of Ada that are important 


for learning its syntax and semantics. 


1.3.1 Comb Format 


'There is a comb format in all the control structures and module structures. See the following 
examples for the comb format. You don't have to understand what the examples do yet - 


just look for the similarities in layout. 





if Boolean expression then 
statements 

elsif Boolean expression then 
statements 

else 
statements 

end if; 








while Boolean expression loop 
statements 
end loop; 








for variable in range loop 
statements 
end loop; 








declare 
declarations 
begin 
statements 
exception 
handlers 
end; 








procedure P (parameters : in out type) is 
declarations 

begin 
statements 











Things to look out for 








exception 
handlers 
end P; 








function F (parameters : in type) return type is 
declarations 

begin 
statements 

exception 
handlers 

end F; 








package P is 
declarations 
private 
declarations 
end P; 








generic 
declarations 
package P is 
declarations 
private 
declarations 
end P; 








generic 
declarations 
procedure P (parameters : in out type); 











Note that semicolons consistently terminate statements and declarations; the empty line (or 
a semicolon alone) is not a valid statement: the null statement is 





null; 











1.3.2 Type and subtype 


There is an important distinction between type and subtype: a type is given by a set of 
values and their operations. A subtype is given by a type, and a constraint that limits the 
set of values. Values are always of a type. Objects (constants and variables) are of a subtype. 
This generalizes, clarifies and systematizes a relationship, e.g. between Integer and 1..100, 
that is handled ad hoc in the semantics of Pascal’. 


1.3.3 Constrained types and unconstrained types 


There is an important distinction between constrained types and unconstrained types. An 
unconstrained type has one or more free parameters that affect its size or shape. A 
constrained type fixes the values of these parameters and so determines its size and shape. 





8 http://en.wikipedia. org/wiki/Pascal/20programming/20language 
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Loosely speaking, objects must be of a constrained type, but formal parameters may be of 
an unconstrained type (they adopt the constraint of any corresponding actual parameter). 
This solves the problem of array parameters in Pascal (among other things). 


1.3.4 Dynamic types 


Where values in Pascal? or C! must be static (e.g. the subscript bounds of an array) they 
may be dynamic in Ada. However, static expressions are required in certain cases where 
dynamic evaluation would not permit a reasonable implementation (e.g. in setting the 
number of digits of precision of a floating point type). 


1.3.5 Separation of concerns 


Ada consistently supports a separation of interface and mechanism. You can see this in the 
format of a package!!, which separates its declaration from its body; and in the concept of 
a private type, whose representation in terms of Ada data structures is inaccessible outside 
the scope containing its definition. 


1.4 Where to ask for help 


Most Ada experts lurk on the Usenet newsgroups!? comp.lang.ada (English) and 
fr.comp.lang.ada (French); they are accessible either with a newsreader!? or through one of 
the many web interfaces. This is the place for all questions related to Ada. 


People on these newsgroups are willing to help but will not do students' homework for them; 
they will not post complete answers to assignments. Instead, they will provide guidance for 
students to find their own answers. 


For more online resources, see the External links section in this wikibook's introduction. 


1.5 Notes 





9 http://en.wikipedia.org/wiki/Pascal/20programming/201language 

10  http://en.wikipedia.org/wiki/C/20programming/20language 

11 Chapter 17 on page 133 

12  http://en.wikipedia.org/wiki/Newsgroup 

13  http://en.wikipedia.org/wiki/News client 

14  http://en.wikibooks.org/wiki/Ada/20ProgrammingA23External/20links 


2 Installing 


Ada compilers! are available from several vendors, on a variety of host and target platforms. 
The Ada Resource Association? maintains a list of available compilers?. 


Below is an alphabetical list of available compilers with additional comments. 


2.1 AdaMagic from SofCheck 


SofCheck* produces an Ada 95 front-end that can be plugged into a code generating back-end 
to produce a full compiler. This front-end is offered for licensing to compiler vendors. 


Based on this front-end, SofCheck offers: 


e AdaMagic, an Ada-to-C translator 
e AppletMagic, an Ada-to-Java? bytecode compiler 


Commercial; proprietary. 


2.2 AdaMULTI from Green Hills Software 


Green Hills Software sells development environments for multiple languages and multiple 
targets (including DSP®s), primarily to embedded software developers. 














Languages supported Ada 83, Ada 95, C, C++, Fortran 

License for the run-time proprietary 

library 

Native platforms GNU/Linux on i386, Microsoft Windows on i386, 
and Solaris on SPARC 

Cross platforms INTEGRITY, INTEGRITY-178B and velOSity 


from Green Hills; VxWorks from Wind River; sev- 
eral bare board targets. Safety-critical GMART 
and GSTART run-time libraries certified to DO- 
178B level A. 

Available from http://www.ghs.com/ 




















http://en.wikipedia.org/wiki/Compiler 

http://www.adaic.com 

http://www.adaic.com/compilers/comp-tool.html 
http://www.sofcheck.com/ 
http://en.wikibooks.org/wiki/Ada_Programming/2FPlatform/2FVM/2F Java 
http://en.wikipedia.org/wiki/Digital/20signal/20processor 
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Support Commercial 
Add-ons included IDE, debugger, TimeMachine, integration with 
various version control systems, source browsers, 
other utilities 

















GHS claims to make great efforts to ensure that their compilers produce the most efficient 
code and often cites the EEMBC” benchmark results as evidence, since many of the results 
published by chip manufacturers use GHS compilers to show their silicon in the best light, 
although these benchmarks are not Ada specific. 


GHS has no publicly announced plans to support the new Ada standard published in 2007 
but they do continue to actively market and develop their existing Ada products. 


2.3 DEC Ada from HP 


DEC Ada is an Ada 83 compiler for OpenVMS$. While “DEC Ada" is probably the name 
most users know, the compiler is now called “HP Ada?" It had previously been known also 
by names of "VAX Ada" and "Compaq Ada". 


e Ada for OpenVMS Alpha Installation Guide’? (PDF) 
e Ada for OpenVMS VAX Installation Guide! (PDF) 


2.4 GNAT, the GNU Ada Compiler from AdaCore and the 
Free Software Foundation 


GNAT?? is the free GNU Ada compiler, which is part of the GNU Compiler Collection!’. 
It is the only Ada compiler that supports all of the optional annexes of the language 
standard. The original authors formed the company AdaCore" to offer professional support, 
consulting, training and custom development services. It is thus possible to obtain GNAT 
from many different sources, detailed below. 


GNAT is always licensed under the terms of the GNU General Public License!?. 


However, the run-time library uses either the GPL!°, or the GNAT Modified GPL", 
depending on where you obtain it. 





7 http: //www.eembc.com 

8 http://en.wikipedia. org/wiki/OpenVMS 

9 http://h71000.www7 .hp.com/commercial/ada/ada index.html 

10  http://h71000.www7 .hp.com/commercial/ada/ada avms ig.pdf 

11  http://h71000.www7 .hp.com/commercial/ada/ada vvms ig.pdf 

12  http://en.wikipedia.org/wiki/GNAT 

13  http://en.wikipedia.org/wiki/GNU Compiler Collection 

14 http://www.adacore.com 

15  http://en.wikipedia.org/wiki/GNU/20Genera1/20Public/20License 
16  http://en.wikipedia.org/wiki/GNU/20Genera1/20Public/20License 
17  http://en.wikipedia.org/wiki/GNAT/420Modified/20General/20Public/20License 
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Several optional add-ons are available from various places: 


e ASIS, the Ada Semantic Interface Specification!?, is a library that allows Ada programs 
to examine and manipulate other Ada programs. 

e FLORIST? is a library that provides a POSIX programming interface to the operating 
system. 

e GDB, the GNU Debugger, with Ada extensions. 

e GLADE implements Annex E, the Distributed Systems Annex. With it, one can write 
distributed programs in Ada, where partitions of the program running on different 
computers communicate over the network with one another and with shared objects. 

e GPS, the GNAT Programming Studio, is a full-featured integrated development environ- 
ment, written in Ada. It allows you to code in Ada, C and C++. 


Many Free Software libraries are also available. 


2.4.4 GNAT GPL Edition 


This is a source and binary release from AdaCore, intended for use by Free Software 
developers only. If you want to distribute your binary programs linked with the GPL 
run-time library, then you must do so under terms compatible with the GNU General Public 
License. 


As of GNAT GPL Edition 2011: 











Languages supported Ada 83, Ada 95, Ada 2005, Ada 2012, C, C++ 
License for the run-time pure GPL 

library 

Native platforms GNU/Linux on i386 and x86_ 64; Microsoft Win- 


dows on i386; Microsoft .NET on i386; Mac OS X 
(Darwin, x86_ 64); Solaris on SPARC. 

















Cross platforms AVR, hosted on Windows; Java VM, hosted on 
Windows; Mindstorms NXT, hosted on Windows 

Compiler back-end GCC 4.5.3 

Available from http://libre.adacore.com/ (requires free regis- 
tration) 

Support None 

Add-ons included GDB, GNATbench (Eclipse plug-in), GPS in 
source and binary form; many more in source-only 
form. 














2.4.2 GNAT Modified GPL releases 


With these releases of GNAT, you can distribute your programs in binary form under 
licensing terms of your own choosing; you are not bound by the GPL. 





18  http://en.wikipedia. org/wiki/Ada/,20Semantic/20Interface/,20Specification 
19 http://en.wikibooks.org/wiki/Ada/20Programming/2FPlatform/,2FPOSIX 
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GNAT 3.15p 


This is the last public release of GNAT from AdaCore that uses the GNAT Modified General 


Public License??, 


GNAT 3.15p has passed the Ada Conformity Assessment Test Suite?! (ACATS??). It was 
released in October 2002. 


The binary distribution from AdaCore also contains an Ada-aware version of the GNU 
Debugger (GDB??), and a graphical front-end to GDB called the GNU Visual Debugger 
(GVD). 











Languages supported Ada 83, Ada 95, C 

License for the run-time GNAT-modified GPL 

library 

Native platforms GNU/Linux on i386 (with glibc 2.1 or later), 


Microsoft Windows on i386, OS/2 2.0 or later on 
1386, Solaris 2.5 or later on SPARC 

















Cross platforms none 

Compiler back-end GCC 2.8.1 

Available from ftp://ftp.cs.kuleuven.ac.be/pub/Ada- 
Belgium/mirrors/gnu-ada/3.15p/ 

Support None 

Add-ons included ASIS, Florist, GLADE, GDB, Gnatwin (on Win- 











dows only), GtkAda 1.2, GVD 





GNAT Pro 


GNAT Pro is the professional version of GNAT, offered as a subscription package by 
AdaCore. The package also includes professional consulting, training and maintenance 
services. AdaCore can provide custom versions of the compiler for native or cross development. 
For more information, see http://www.adacore.com/. 











Languages supported Ada 83, Ada 95, Ada 2005, Ada 2012, C, and 
optionally C++ 

License for the run-time GNAT-modified GPL 

library 

Native platforms many, see http://www.adacore.com/home/ 


products/gnatpro/supported_platforms/ 





Cross platforms many, see http://www.adacore.com/home/ 
products/gnatpro/supported platforms/; 
even more on request 

















20  http://en.wikipedia.org/wiki/GNAT/20Modified/20Genera1/20Public/20License 
2]  http://en.wikipedia.org/wiki/IS0/2018009 

22  http://en.wiktionary.org/wiki/ACATS 

23 http://en.wikipedia. org/wiki/GDB 
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Compiler back-end GCC 4.3 

Available from http://www.adacore.com/ by subscription (com- 
mercial) 

Support Commercial; customer-only bug database 

Add-ons included ASIS, Florist, GDB, GLADE, GPS, GtkAda, 
XML/ Ada, and many more in source and, on 
request, binary form. 








GCC 


GNAT has been part of the Free Software Foundation?!'s GCC?? since October 2001. 
'The Free Software Foundation does not distribute binaries, only sources. Its licensing of 
the run-time library for Ada (and other languages) allows the development of proprietary 
software without necessarily imposing the terms of the GPL?6, 


Most GNU/Linux distributions and several distributions for other platforms include prebuilt 
binaries; see below. 


For technical reasons, we recommend against using the Ada compilers included in GCC 3.1, 
3.2, 3.3 and 4.0. Instead, we recommend using GCC 3.4, 4.1 or later, or one of the releases 
from AdaCore” (3.15p, GPL Edition or Pro). 


Since October 2003, AdaCore merge most of their changes from GNAT Pro into GCC during 
Stage 125; this happens once for each major release. Since GCC 3.4, AdaCore has gradually 
added support for revised language standards, first Ada 2005 and now Ada 2012. 


GCC version 4.4 switched to version 3 of the GNU General Public License?? and grants 
a Runtime Library Exception?? similar in spirit to the GNAT Modified General Public 
License?! used in all previous versions. This Runtime Library Exception applies to run-time 
libraries for all languages, not just Ada. 


As of GCC 4.7, released on 2012-03-22: 





Languages supported Ada 83, Ada 95, Ada 2005, parts of Ada 2012, C, 
C++, Fortran 95, Java, Objective-C, Objective- 
C++ (and others) 




















License for the run-time GPL version 3% with Runtime Library Excep- 
library tion? 
Native platforms none (source only) 








24  http://www.fsf.org/ 

25  http://gcc.gnu.org/ 

26 — http://en.wikipedia.org/wiki/GNU/20GeneralA20Public/20License 

27  http://www.adacore.com 

28  http://gcc.gnu.org/develop.htmlétstagei 

29  http://www.gnu.org/licenses/gpl.html 

30  http://www.gnu.org/licenses/gcc-exception.html 

31 http://en.wikipedia.org/wiki/GNAT/20Modified/20Genera1/20Public/20License 
32  http://www.gnu.org/licenses/gpl.html 

33  http://www.gnu.org/licenses/gcc-exception.html 
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Cross platforms none (source only) 

Compiler back-end GCC 4.7 

Available from http://gcc.gnu.org/ in source only form. 
Support Volunteer; public bug database 

Add-ons included none 











2.4.3 The GNU Ada Project 


The GNU Ada Project** provides source and binary packages of various GNAT versions for 
several operating systems, and, importantly, the scripts used to create the packages. This 
may be helpful if you plan to port the compiler to another platform or create a cross-compiler; 
there are instructions for building your own GNAT compiler for GNU/Linux? and Mac 
OS X?? users. 


Both GPL?” and GMGPL?? or GCC Runtime Library Exception?? versions of GNAT are 
available. 


























Languages supported Ada 83, Ada 95, Ada 2005, C. (Some distributions 
also support Ada 2012, Fortran 90, Java, Objective C 
and Objective C++) 

License for the run-time pure, GNAT-modified GPL, or GCC Runtime 

library Library Exception 

Native platforms Fedora Core 4 and 5, MS-DOS, OS/2, Solaris 10, 
SuSE 10, MacOS X, (more?) 

Cross platforms none 

Compiler back-end GCC 2.8.1, 3.4, 4.0, 4.1, 4.2, 4.3, 4.4, 4.5, 4.6 
(various binary packages) 

Available from Sourceforge” 

Support Volunteer; public bug database 

Add-ons included AdaBrowse, ASIS, Booch Components, Charles, 
GPS, GtkAda (more?) 














2.4.4 A# (A-Sharp, a.k.a. Ada for .NET) 


This compiler is historical as it has now been merged into GNAT GPL Edition^' and GNAT 
Bretz 





34  http://gnuada.sourceforge.net 

35 http://ada.krischik. com/index. php/Articles/CompileGNAT 

36 =http://forward-in-code. blogspot .com/2011/11/building-gcc-again. html 

37  http://en.wikipedia.org/wiki/GNUA420General/20Public/A20License 

38  http://en.wikipedia.org/wiki/GNAT/20Modified/20Genera1/20Public/20License 
39  http://www.gnu.org/licenses/gcc-exception.html 

40  http://sourceforge.net/projects/gnuada/files/ 

41 Chapter 2.4.1 on page 11 

42 Chapter 2.4.2 on page 12 
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A# is a port of Ada to the NET Platform’. A# was originally developed at the Department 
of Computer Science at the United States Air Force Academy which distribute A# as a 
service to the Ada community under the terms of the GNU general public license. A# 
integrates well with Microsoft Visual Studio 2005, AdaGIDE and the RAPID open-source 


GUI Design tool. As of 2006-06-06: 





Languages supported 


Ada 83, Ada 95, C 





License for the run-time 
library 


pure GPL 





Native platforms 


Microsoft .NET 





Cross platforms 


none 





Compiler back-end 


GCC 3.4 (GNAT GPL 2006 Edition?) 





Available from 


http://sourceforge.net/projects/asharp/ 





Support 


None (but see GNAT Pro) 








Add-ons included 





none. 








2.4.5 GNAT for AVR microcontrollers 


Rolf Ebert and others provide a version of GNAT configured as a cross-compiler to various 
AVR microcontrollers**, as well as an experimental Ada run-time library suitable for use on 


the microcontrollers. As of Version 1.1.0 (2010-02-25): 





Languages supported 


Ada 83, Ada 95, Ada 2005, C 





License for the run-time 
library 


GNAT-Modified GPL 





Host platforms 


GNU/Linux and Microsoft Windows on i386 





Target platforms 


Various AVR 8-bit microcontrollers 





Compiler back-end 


GCC 4.3 





Available from 


http://avr-ada.sourceforge.net/ 





Support 


Volunteer; public bug database 





Add-ons included 


partial Ada run time system, AVR peripherals 











support library 





2.4.6 GNAT for LEON 


The Real-Time Research Group of the Technical University of Madrid (UPM, Universidad 
Politécnica de Madrid) wrote a Ravenscar*°-compliant real-time kernel for execution on 
LEON processors*® and a modified run-time library. They also provide a GNAT cross- 
compiler. As of version 2.0.1: 





43  http://www.microsoft.com/net/ 

44  http://en.wikipedia.org/wiki/Atmel AVR 

45  http://en.wikipedia.org/wiki/Ravenscar/20profile 
46  http://en.wikipedia.org/wiki/LEON 
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Languages supported Ada 83, Ada 95, Ada 2005, C 

License for the run-time pure GPL 

library 

Native platforms none 

Cross platforms GNU/Linux on i686 to LEON2 bare boards 

Compiler back-end GCC 4.1 (GNAT GPL 2007 Edition) 

Available from http://www.dit.upm.es/ork/ 

Support ? 

Add-ons included OpenRavenscar real-time kernel; minimal run- 
time library 














2.4.7 GNAT for Macintosh (Mac OS X) 


GNAT for Macintosh* provides both FSF (GMGPL) and AdaCore (GPL) versions of 
GNAT* with Xcode?? and Carbon? integration and bindings. 


Note that this site was last updated for GCC 4.3 and Mac OS X Leopard (both PowerPC 
and Intel-based). Aside from the work on integration with Apple’s Carbon graphical user 
interface and with Xcode 3.1 it may be preferable to see above?! . 


There is also support at MacPorts??; the last update (at 25 Nov 2011) was for GCC 4.4.2. 


2.4.8 Prebuilt packages as part of larger distributions 


Many distributions contain prebuilt binaries of GCC or various public releases of GNAT 
from AdaCore. Quality varies widely between distributions. The list of distributions below 
is in alphabetical oder. (Please keep it that way.) 


AIDE (for Microsoft Windows) 


AIDE — Ada Instant Development Environment?? is a complete one-click, just-works Ada 
distribution for Windows, consisting of GNAT, comprehensive documentation, tools and 
libraries. All are precompiled, and source code is also available. The installation procedure 
is particularly easy. AIDE is intended for beginners and teachers, but can also be used by 
advanced users. 











Languages supported Ada 83, Ada 95, C 
License for the run-time GNAT-modified GPL 
library 














47 http: //www.macada.org/ 

48 — http://en.wikipedia.org/wiki/GNAT 

49 http://en.wikipedia.org/wiki/Xcode 

50  http://en.wikipedia.org/wiki/Carbon/20/28AP17/29 

51 Chapter 2.4.3 on page 14 

52  https://trac.macports.org/browser/trunk/dports/lang/gnat-gcc 
53 http://sr.sriviere.info/aide/aide.html 
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Native platforms 


Microsoft Windows on 1386 





Cross platforms 


none 





Compiler back-end 


GCC 2.8.1 





Available from 


http://www.ada-france.org/ 
AIDE/ftp:/ /ftp.cs.kuleuven.ac.be/pub/ Ada- 
Belgium/mirrors/aide/ 





Support 


Ké 








Add-ons included 





ASIS, GDB, GPS, GtkAda (more?) 








Blastwave (for Solaris on SPARC and x86) 


Blastwave?^ has binary packages of GCC 3.4.5 and 4.0.2 with Ada support. The package 
names are gcc3ada and gcc4ada respectively. 





Languages supported 


Ada 83, Ada 95, parts of Ada 2005, C, C++, 
Fortran 95, Java, Objective-C, Objective-C++ 





License for the run-time 
library 


GNAT-modified GPL 





Native platforms 


Solaris and OpenSolaris on SPARC 





Cross platforms 


none 





Compiler back-end 


GCC 3.4.5 and 4.0.2 (both available) 





Support 


? 





Available from 


http: //www.blastwave.org/ 





Add-ons included 








none (?) 








OpenCSW (for Solaris on SPARC and x86) 


OpenCSW* has binary packages of GCC 3.4.6 and 4.6.2 with Ada support. The package 
names are gcc3ada and gcc4ada respectively. 





Languages supported 


Ada 83, Ada 95, parts of Ada 2005, C, C++, 
Fortran 95, Java, Objective-C, Objective-C++ 





License for the run-time 
library 


GNAT-modified GPL 





Native platforms 


Oracle Solaris and OpenSolaris on SPARC and 
x86 





Cross platforms 


none 





Compiler back-end 


GCC 3.4.6 and 4.6.2 (both available) 





Support 


¢ 





Available from 


http: //www.opencsw.org/ 








Add-ons included 





none (?) 











4  http://www.blastwave.org 
5 http://www.opencsw.org 
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Cygwin (for Microsoft Windows) 


Cygwin, the Linux-like environment for Windows, also contains a version of the GNAT? 
compiler. The Cygwin?? version of GNAT?? is older than the MinGW% version and does 
not support DLLs and Multi-Threading (as of 11.2004). 


Debian (GNU/Linux and GNU/kFreeBSD) 


There isa Debian Policy for Ada?! which tries to make Debian the best Ada development and 
deployment platform. The development platform includes the compiler and many libraries, 
pre-packaged and integrated so as to be easy to use in any program. The deployment platform 
is the renowned | stable? distribution, which is suitable for mission-critical workloads and 
enjoys long life cycles, typically 3 to 4 years. Because Debian is a binary distribution, it is 
possible to deploy non-free, binary-only programs on it while enjoying all the benefits of a 
stable platform. Compiler choices are conservative for this reason, and the Policy mandates 
that all Ada programs and libraries be compiled with the same version of GNAT. This makes 
it possible to use all libraries in the same program. Debian separates run-time libraries from 
development packages, so that end users do not have to install the development system just 
to run à program. 


The GNU Ada compiler can be installed on a Debian system with this command: 





aptitude install gnat 











This will also give you a list of related packages, which are likely to be useful for an Ada 
programmer. 


Debian is unique in that it also allows programmers to use some of GNAT's internal 
components by means of two libraries: 


e libgnatvsn (licensed under GNAT-Modified GPL) and 
e libgnatprj (the project manager, licensed under pure GPL). 


Debian packages make use of these libraries. 


In the table below, the information about the future Debian 7.0 Wheezy is accurate as of 
July 2012 but may change. 





56 — http://www.cygwin.com 

57 Chapter 2.4 on page 10 

58  http://en.wikipedia.org/wiki/Cygwin 

59  http://en.wikipedia.org/wiki/GNAT 

60  http://en.wikipedia.org/wiki/MinGW 

61 http://people.debian.org/~lbrenta/debian-ada-policy.html 
62  http://www.debian.org/releases/stable/ 
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The ADT plugin for Eclipse (see section ObjectAda from Aonix**) can be used with GNAT 
as packaged for Debian Etch. Specify "/usr" as the toolchain path. 


DJGPP (for MS-DOS) 


DJGPP has GNAT® as part of their GCC* distribution. 


DJGPP^7 is a port of a comprehensive collection of GNU utilities to MS-DOS with 32-bit 
extensions, and is actively supported (as of 1.2005). It includes the whole GCC® compiler 
collection, that now includes Ada. See the DJGPP? website for installation instructions. 


DJGPP programs run also in à DOS command box in Windows, as well as in native MS-DOS 
systems. 


FreeBSD 


FreeBSD"?'s ports collection"! contains GNAT GPL 2006 Edition (package gnat-2006), 
GNAT 3.15p, GCC 4.1, 4.2 and 4.3 with support for Ada. The usual way to install a package 


on FreeBSD is to compile it from source; not all add-ons are compatible with all versions of 
GNAT provided. 


You can also use the Debian packages described above in a jail, thanks to Debian GNU/k- 
FreeBSD. 


As of 2008-11-10: 



































Languages supported Ada 83, Ada 95, parts of Ada 2005, C 

License for the run-time both pure and modified GPL available 

library 

Native platforms FreeBSD on i386 (more?) 

Cross platforms none 

Compiler back-end GCC 2.8.1, 3.4, 4.1, 4.2, 4.3 

Available from http://www.freebsd.org 

Support Volunteer; public bug database 

Add-ons included AdaBindX, AdaCurses, AdaSDL, AdaSockets, 
AFlex+AYACC, ASIS, AUnit, Booch Compo- 
nents, CBind, Florist, GLADE, GtkAda, SGL, 
XML/Ada (more?) 








64 Chapter 2.4.8 on page 24 

65  http://en.wikipedia.org/wiki/GNAT 
66 | http://en.wikipedia.org/wiki/GCC 
67 http://wiw.delorie.com/djgpp/ 

68 http://en.wikipedia.org/wiki/GCC 
69 http://www.delorie.com/djgpp/ 

70 http://www.freebsd.org 

"Tl http://www.freebsd.org/ports 
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GNAT, the GNU Ada Compiler from AdaCore and the Free Software Foundation 





Gentoo GNU/Linux 


The GNU Ada compiler can be installed on a Gentoo system using emerge: 





emerge dev-lang/gnat 











In contrast to Debian, Gentoo is primarily a source distribution, so many packages are 
available only in source form, and require the user to recompile them (using emerge). 


Also in contrast to Debian, Gentoo supports several versions of GNAT in parallel on the 
same system. Be careful, because not all add-ons and libraries are available with all versions 


of GNAT. 


























Languages supported Ada 83, Ada 95, Ada 2005, C (more?) 

License for the run-time pure or GNAT-modified GPL (both available) 

library 

Native platforms Gentoo GNU/Linux on amd64, powerpc and i386 

Cross platforms none 

Compiler back-end GCC 3.4, 4.1 (various binary packages) 

Available from http://www.gentoo.org/ (see other Gentoo 
dev-ada"? packages) 

Support Volunteer; public bug database 

Add-ons included AdaBindX, AdaBroker, AdaDoc, AdaOpenGL, 


AdaSockets, ASIS, AUnit, Booch Components, 
CBind, Charles, Florist, GLADE, GPS, GtkAda, 
XML/Ada 














Mandriva Linux 


The GNU Ada compiler can be installed on a Mandriva system with this command: 





urpmi gnat 











MinGW (for Microsoft Windows) 


MinGW — Minimalist GNU for Windows” contains a version of the GNAT compiler. 


The current version of MinGW (5.1.6) contains gcc-4.5.0. This includes a fully functional 
GNAT compiler. If the automatic downloader does not work correctly you can download 
the compiler directly: pick gcc-4.5.0-1 from MinGW/BaseSystem/GCOC/ Version4/ 





72 http://es.znurt.org/dev-ada 
73 http://mingw.sourceforge.net 
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old instructions 
The following list should help you with the installation. (I may have forgotten something — 
but this is wiki, just add to the list) 


1. Install MinGW-3.1.0-1.exe 
a) extract binutils-2.15.91-20040904-1.tar.gz 
b) extract mingw-runtime-3.5.tar.gz 
c) extract gcc-core-3.4.2-20040916-1.tar.gz 
d) extract gcc-ada-3.4.2-20040916-1.tar.gz 
e) extract gcc-g++-8.4.2-20040916-1.tar.gz (Optional) 
f) extract gcc-g77-3.4.2-20040916-1.tar.gz (Optional) 
g) extract gcc-java-3.4.2-20040916-1.tar.gz (Optional) 
h) extract gcc-objc-3.4.2-20040916-1.tar.gz (Optional) 
i) extract w32api-3. 1.tar.gz 
. Install mingw32-make-3.80.0-3.exe (Optional) 
. Install gdb-5.2.1-1.exe (Optional) 
. Install MSYS-1.0.10.ere (Optional) 
. Install msysD TK-1.0.1.exe (Optional) 
a) extract msys-automake-1.8.2.tar.bz2 (Optional) 
b) extract msys-autoconf-2.59.tar.bz2 (Optional) 
c) extract msys-libtool-1.5.tar.bz2 (Optional) 


oF Wh 


I have made good experience in using D:|MinGW as target directory for all installations 
and extractions. 


Also noteworthy is that the Windows version for GNAT from Libre is also based on MinGW. 


In gcc-3.4.2-release notes.txt from MinGW site reads: please check that the files in the 
/lib/gcc/mingw32/3.4.2/adainclude and adalib directories are flagged as read-only. This 
attribute is necessary to prevent them from being deleted when using gnatclean to clean a 
project. 


So be sure to do this. 


SuSE Linux 


All versions of SuSE Linux have a GNAT compiler included. SuSE versions 9.2 and higher 
also contains ASIS, Florist and GLADE libraries. The following two packages are needed: 





gnat 
gnat-runtime 











For SuSE version 12.1, the compiler is in the package 





gcc46-ada 
libada46 











For 64 bit system you will need the 32 bit compatibility packages as well: 
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ICC from Irvine Compiler Corporation 








gnat-32bit 
gnat-runtime-32bit 











Ubuntu 


Ubuntu (and derivatives like Kubuntu, Xubuntu...) is a Debian-based Linux distribution, 
thus the installation process described above/^ can be used. Graphical package managers 
like Synaptic or Adept can also be employed to select the Ada packages. 


2.5 ICC from Irvine Compiler Corporation 


Irvine Compiler Corporation”? provides native and cross compilers for various platforms.http: 
//waw.irvine.com/products.html The compiler and run-time system support development 
of certified, safety-critical software. 


Commercial, proprietary. No-cost evaluation is possible on request. Royalty-free redistribu- 
tion of the run-time system is allowed. 


2.6 Janus/Ada 83 and 95 from RR Software 


RR Software’ offers native compilers for MS-DOS, Microsoft Windows and various Unix 
and Unix-like systems, and a library for Windows GUI programming called CLAW. There 
are academic, personal and professional editions, as well as support options. 


Commercial but relatively cheap; proprietary. 


2.7 MAXAda from Concurrent 


Concurrent” offers MAX Ada". an Ada 95 compiler for Linux/Xeon and PowerPC platforms, 
and Ada bindings to POSIX and X/Motif.http: //www.ccur.com/pdf/cpb-sw-maxada.pdf 


Commercial, proprietary. 





74 Chapter 2.4.8 on page 18 

75 http://www.irvine.com/ 

76 http://www.rrsoftware.com 

77T http://www.ccur.com/ 

78 | http://www.ccur.com/products rt maxada.aspx 
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2.8 ObjectAda from Atego (formerly Aonix) 


Atego” offers native and cross compilers for various platforms. They come with an IDE, 
a debugger, a plug-in for Eclipse and a POSIX binding? http: //www.aonix.com/pdf / 
oa-linux.pdf. 


On Microsoft Windows and GNU/Linux on i386, Aonix offers two pricing models, at the 
customer's option: either a perpetual license fee with optional support, or just the yearly 


support fee: For Linux, that's $3000 for a single user or $12,000 for a 5-user service pack. 


See the full press release®!. 


In addition, they offer "Object Ada Special Edition": a no-cost evaluation version of ObjectAda 
that limits the size of programs that can be compiled with it, but is otherwise fully functional, 
with IDE and debugger. Free registration required??. 


A recent contribution by Atego is ADT®? for Eclipse®4. The Ada Development Tools add 
Ada language support to the Eclipse open source development platform. ADT can be used 
with Aonix compilers, and with GNAT. An open source vendor supported project is outlined 
for ADT at Eclipse. Codenamed Hibachi and showcased at the Ada Conference UK 2007 
and during Ada-Europe 2007, the project has now been officially created?6. 


Commercial, proprietary. 


2.9 PowerAda from OC Systems 


OC Systems?" offers Ada compilers and bindings to POSIX and X-11: 


e PowerAda®®, an Ada 95 compiler for Linux and AIX, 
e Legacy Ada/3909?, an Ada 83 compiler for IBM System 370 and 390 mainframes 


Commercial, proprietary. 


2.10 Rational Apex from Atego (formerly IBM Rational%) 


Rational Apex?! for native and embedded development. 





79 — http://www.atego.com/ 

80  http://en.wikibooks.org/wiki/Ada/20Programming/2FPlatform/2FPOSIX 
81  http://www.atego.com/pressreleases/pressitem/aonix-shatters-ada-price-barrier-for-linux 
82  http://www.atego.com/support/eval-aonix-objectada/ 

83  http://www.aonix.com/adt.html 

84  http://www.eclipse.org 

85  http://www.eclipse.org/proposals/adt/ 

86 http://www.eclipse.org/hibachi/ 

87  http://www.ocsystems.com/ 

88  http://www.ocsystems.com/prod powerada.html 

89  http://www.ocsystems.com/prod legacyada.html 

90 Atego acquires IBM Rational Apex Ada Developer product family 

91  http://www-306.ibm.com/software/awdtools/developer/ada/ 
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Commercial, proprietary. 


2.11 SCORE from DDC-I 

SCORE from DDC-I 

DDC-I?? offers its SCORE cross-compilers for embedded development. SCORE stands for 
Safety-Critical, Object-oriented, Real-time Embedded. 


Commercial, proprietary. 


2.12 XD Ada from SWEP-EDS 
XD Ada from SWEP-EDS 


XD Ada?? is an Ada 83 cross-compiler for embedded development. Hosts include VAX, 
Alpha and Integrity Servers running OpenVMS. Targets include Motorola 68000 and MIL- 
STD-1750A processors. 


Commercial, proprietary. 


2.13 XGC Ada from XGC Software 
XGC Ada from XGC Software 


XGC compilers are GCC with custom run-time libraries suitable for avionics and space 
applications. The run-time kernels are very small and do not support exception propagation 
(i.e. you can handle an exception only in the subprogram that raised it). 


Commercial but some versions are also offered as free downloads. Free Software. 











Languages supported Ada 83, Ada 95, C 
License for the run-time GNAT-Modified GPL 
library 

Native platforms none 

















92  http://www.ddci.com/ 
93 http://www.swep-eds.com/XD/,20Ada/Xd/20ada .htm 
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Cross platforms 


Hosts: sun-sparc-solaris, pc-linux2.*; targets are 
bare boards with ERC32%, MIL-STD-1750A?5, 
Motorola 68000% family or Intel 32-bit?" proces- 
sors. PowerPC% and Intel 80186?? targets on 
request. 





Compiler back-end 


GCC 2.8.1 





Available from 


http://www.xgc.com/ 





Support 


Commercial 








Add-ons included 





Ravenscar-compliant run-time kernels, certified 
for avionics and space applications; gdb cross- 
debugger; target simulator. 





2.14 References 





References 

94  http://en.wikipedia.org/wiki/ERC32 

95  http://en.wikipedia.org/wiki/MIL-STD-1750A 
96  http://en.wikipedia.org/wiki/Motorola 68000 
97  http://en.wikipedia.org/wiki/IA 32 

98  http://en.wikipedia.org/wiki/PowerPC 

99  http://en.wikipedia.org/wiki/Intel 80186 
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3 Building 


Ada programs are usually easier to build than programs written in other languages like C 
or C++, which frequently require a makefile. This is because an Ada source file already 
specifies the dependencies of its source unit. See the with keyword! for further details. 


Building an Ada program is not defined by the Reference Manual, so this process is absolutely 
dependent on the compiler. Usually the compiler kit includes a make tool which compiles a 
main program and all its dependencies, and links an executable file. 


3.1 Building with various compilers 
Building with various compilers 


This list is incomplete. You can help Wikibooks by adding the build information? for other 
compilers. 


3.1.1 GNAT 


With GNAT?, you can run this command: 





gnat make «your unit file» 











If the file contains a procedure, gnatmake will generate an executable file with the procedure 
as main program. Otherwise, e.g. a package, gnatmake will compile the unit and all its 
dependencies. 


GNAT command line 


gnatmake can be written as one word gnatmake or two words gnat make. For a full list 
of gnat commands just type gnat without any command options. The output will look 
something like this: 





1 http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fwith 
2 http://en.wikibooks.org/w/index.php?title-Ada Programming/Building&action-edit 
3 http://en.wikipedia.org/wiki/GNAT 
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GNAT 3.4.3 Copyright 1996-2004 Free Software Foundation, Inc. 
List of available commands 

GNAT BIND gnatbind 

GNAT CHOP gnatchop 

GNAT CLEAN gnatclean 

GNAT COMPILE gnatmake -c -f -u 

GNAT ELIM gnatelim 

GNAT FIND gnatfind 

GNAT KRUNCH gnatkr 

GNAT LINK gnatlink 

GNAT LIST gnatls 

GNAT MAKE gnatmake 

GNAT NAME gnatname 

GNAT PREPROCESS gnatprep 

GNAT PRETTY gnatpp 

GNAT STUB gnatstub 

GNAT XREF gnatxref 

Commands FIND, LIST, PRETTY, STUB and XREF accept project file 
switches -vPx, -Pprj and -Xnam-val 











For further help on the option just type the command (one word or two words — as you 
like) without any command options. 


GNAT IDE 


The GNAT toolchain comes with an IDE* called GPS?. You need to download and install it 
separately. The GPS features a graphical user interface?. 


There are also GNAT plugins for Emacs’ ( Ada Mode?), KDevelop? and Vim!? ( Ada 
Mode!) available. 


Both Emacs and Vim Ada-Mode are maintained by The GNU Ada project!?. 


GNAT with Xcode 


Apple's free (gratis) IDE, Xcode, is included with every Macintosh but requires an explicit 
installation step from DVD-ROM or CD-ROM. It is also downloadable from http: // 
developer.apple.com/. Xcode uses the GNU Compiler Collection!? and thus supports 
Ada, GDB", etc... and also includes myriad tools for optimizing code which are unique to 





4 http://en.wikipedia.org/wiki/Integrated/20development/20environment 
5 http://en.wikipedia.org/wiki/GNAT/20Programming/20Studio 

6 http://en.wikipedia.org/wiki/Graphical/20user/20interface 
7 http://en.wikipedia.org/wiki/Emacs 

8 http: //stephe-leake. org/emacs/ada-mode/emacs-ada-mode. html 
9 http://en.wikipedia. org/wiki/KDevelop 

10  http://en.wikipedia.org/wiki/Vim/20428text/20editor/29 

11  http://www.vim.org/scripts/script.php?script id-1609 

12  http://gnuada.sourceforge.net 

13  http://en.wikipedia.org/wiki/GNU/20Compiler/^20Collection 
14 http://en.wikipedia.org/wiki/GNU/20Debugger 
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the Macintosh platform. However, GNAT must be installed separately as it is (as of 2008) not 
distributed as part of Xcode. Get the binary and/or sources at http: //www.macada.org/, 
along with numerous tools and bindings including bindings to Apple's Carbon frameworks 
which allow the development of complete, "real" Mac programs, all in Ada. 


3.1.2 Rational APEX 


Rational APEX is a complete development environment comprising a language sensitive 
editor, compiler, debugger, coverage analyser, configuration management and much more. 
You normally work with APEX running a GUI. 


APEX has been built for the development of big programs. Therefore the basic entity 
of APEX is a subsystem, a directory with certain traits recognized by APEX. All Ada 
compilation units have to reside in subsystems. 


You can define an ezport set, i.e. the set of Ada units visible to other subsystems. However for 
a subsystem A to gain visibility to another subsystem B, A has to ¿import B. After importing, 
A sees all units in B's export set. (This is much like the with-clauses, but here visibility 
means only potential visibility for Ada: units to be actually visible must be mentioned in 
a with-clause of course; units not in the export set cannot be used in with-clauses of Ada 
units in external subsystems.) 


Normally subsystems should be hierarchically ordered, i.e. form a directed graph. But for 
special uses, subsystems can also mutually import one another. 


For configuration management, a subsystem is decomposed in views, subdirectories of the 
subsystem. Views hold different development versions of the Ada units. So actually it's not 
subsystems which import other subsystems, rather subsystem views import views of other 
subsystems. (Of course, the closure of all imports must be consistent — it cannot be the 
case that e.g. subsystem (A, view A1) imports subsystems (B, B1) and (C, C1), whereas (B, 
B1) imports (C, C2)). 


A view can be defined to be the development view. Other views then hold releases at 
different stages. 


Each Ada compilation unit has to reside in a file of its own. When compiling an Ada unit, 
the compiler follows the with-clauses. If a unit is not found within the subsystem holding 
the compile, the compiler searches the import list (only the direct imports are considered, 
not the closure). 


Units can be taken under version control. In each subsystem, a set of histories can be 
defined. An Ada unit can be taken under control in a history. If you want to edit it, you first 
have to check it out — it gets a new version number. After the changes, you can check it in 
again, i.e. make the changes permanent (or you abandon your changes, i.e. go back to the 
previous version). You normally check out units in the development view only; check-outs 
in release views can be forbidden. 


You can select which version shall be the active one; normally it is the one latest checked in. 
You can even switch histories to get different development paths. e.g. different bodies of the 
same specification for different targets. 
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3.1.3 ObjectAda 


ObjectAda is a set of tools for editing, compiling, navigating and debugging programs 
written in Ada. There are various editions of ObjectAda. With some editions you compile 
programs for the same platform and operating systems on which you run the tools. These 
are called native. With others, you can produce programs for different operating systems 
and platforms. One possible platform is the Java virtual machine. 


These remarks apply to the native Microsoft Windows edition. You can run the translation 
tools either from the IDE or from the command line. 


Whether you prefer to work from the IDE, or from the command line, a little bookkeeping is 
required. This is done by creating a project. Each project consists of a number of source files, 
and a number of settings like search paths for additional Ada libraries and other dependences. 
Each project also has at least one target. Typically, there is a debug target, and a release 
target. The names of the targets indicate their purpose. At one time you compile for 
debugging, typically during development, at other times you compile with different settings, 
for example when the program is ready for release. Some (all commercial?) editions of 
Object Ada permit a Java (VM) target. 


3.1.4 DEC Ada for VMS 


DEC Ada is an Ada 83 compiler for VMS?. While “DEC Ada” is probably the name most 
users know, the compiler is now called * HP Ada!®”. It had previously been known also by 
names of "VAX Ada" and "Compaq Ada". 


DEC Ada uses a true library management system — so the first thing you need to do is 
create and activate a library: 





ACS Library Create [MyLibrary] 
ACS Set Library [MyLibrary] 











When creating a library you already set some constraints like support for Long Float or 
the available memory size. So carefully read 





HELP ACS Library Create * 











'Then next step is to load your Ada sources into the library: 





ACS Load [Source]*.ada 











'The sources don't need to be perfect at this stage but syntactically correct enough for the 
compiler to determine the packages declared and analyze the with statements. Dec Ada 
allows you to have more than one package in one source file and you have any filename 





15  http://en.wikipedia.org/wiki/ÜpenVMS 
16  http://h71000.www7.hp.com/commercial/ada/ada index.html 
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convention you like. The purpose of ACS Load is the creation of the dependency tree between 
the source files. 


Next you compile them: 





ACS Compile * 











Note that compile take the package name and not the filename. The wildcard * means all 
packages loaded. The compiler automatically determines the right order for the compilation 
so a make!" tool is not strictly needed. 


Last but not least you link your file into an 





ACS Link /Executable-[Executables]Main.exe Main 











On large systems you might want to break sources down into several libraries — in which 
case you also need 





ACS Merge /Keep * 











to merge the content of the current library with the library higher up the hierarchy. The 
larger libraries should then be created with: 





ACS Library Create /Large 











'This uses a different directory layout more suitable for large libraries. 


DEC Ada IDE 
Dec Ada comes without an IDE, however the DEC LSE!? as well as the Ada Mode!” of the 
Vim text editor?? support DEC Ada. 


3.2 Compiling our Demo Source 


Compiling our Demo Source 


Once you have downloaded?! our example programs you might wonder how to compile 
them. 





17  http://en.wikipedia.org/wiki/make/20/28software/29 

18  nhttp://en.wikipedia.org/wiki/Language-Sensitive Editor 

19  http://www.vim.org/scripts/script.php?script id-1609 

20  http://en.wikipedia.org/wiki/Vim/20/28text/20editor/29 

21  https://sourceforge.net/project/showfiles.php?group id-124904 
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First you need to extract the sources. Use your favorite zip tool? to achieve that. On 
extraction a directory with the same name as the filename is created. Beware: WinZip might 
also create a directory equaling the filename so Windows users need to be careful using the 
right option otherwise they end up with wikibook-ada-1 2 0.src|wikibook-ada-1 2 Q0. 


Once you extracted the files you will find all sources in wikibook-ada-1 2 0/Source. You 
could compile them right there. For your convenience we also provide ready made project 
files for the following IDEs (If you find a directory for an IDEs not named it might be in the 
making and not actually work). 


3.2.1 GNAT 


You will find multi-target GNAT Project files and a multi-make Makefile file in wikibook- 
ada-2 0 0/GNAT. For 1686 Linux and Windows you can compile any demo using: 





gnat make -P project file 











You can also open them inside the GPS with 





gps -P project file 











For other target platform it is a bit more difficult since you need to tell the project files 
which target you want to create. The following options can be used: 


style ("Debug", "Release") 


you can define if you like a debug or release version so you can compare how the options 
affect size and speed. 


os ("Linux", "OS2", "Windows NT", "VMS") 


choose your operating system. Since there is no Ada 2005 available for OS/2 don't expect 
all examples to compile. 


target ("i686", "x86 64", "AXP") 


choose your CPU — "i686?" is any form of 32bit Intel or AMD CPU, 'x86 6424" is an 64 
bit Intel or AMD CPU and if you have an "AXP?°" then you know it. 


Remember to type all options as they are shown. 'To compile a debug version on x86-64 
Linux you type: 





gnat make -P project file -Xstyle-Debug -Xos-Linux -Xtarget-x86 64 














22  http://en.wikipedia.org/wiki/ZIP/20/28file/20format729 
23  http://en.wikipedia.org/wiki/x86 

24  http://en.wikipedia.org/wiki/x86-64 

25  http://en.wikipedia.org/wiki/DEC/20A1pha 
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As said in the beginning there is also a makefile available that will automatically determine 
the target used. So if you have a GNU make you can save yourself a lot of typing by using: 





make project 











Or even use 





make all 











to make all examples in debug and release in one go. 


Each compile is stored inside its own directory which is created in the form of wikibook-ada- 
2 0 0/GNAT/OS-Target-Style. Empty directories are provided inside the archive. 


3.2.2 Rational APEX 


APEX uses the subsystem and view directory structure, so you will have to create those first 
and copy the source files into the view. After creating a view using the architecture model 
of your choice, use the menu option "Compile -> Maintenance -> Import Text Files". In the 
Import Text Files dialog, add "wikibook-ada-2_0_0/Source/*.ad?" to select the Ada source 
files from the directory you originally extracted to. Apex uses the file extensions .1.ada for 
specs and .2.ada for bodies — don't worry, the import text files command will change these 
automatically. 


To link an example, select its main subprogram in the directory viewer and click the link 
button in the toolbar, or "Compile -> Link" from the menu. Double-click the executable to 
run it. You can use the shift-key modifier to bypass the link or run dialog. 


3.2.3 ObjectAda 
ObjectAda command-line 


The following describes using the ObjectAda tools for Windows in a console window. 


Before you can use the ObjectAda tools from the command line, make sure the PATH 
environment variable lists the directory containing the ObjectAda tools. Something like 





set path-/path/;P:MProgramsMAonixMVO0bjectAdaNbin 











A minimal ObjectAda project can have just one source 
file. like the Hello World program provided in 


File: hello world 1.adb 


To build an executable from this source file, follow these steps (assuming the current directory 
is a fresh one and contains the above mentioned source file): 
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e Register your source files: 





X:\some\directory> adareg hello_world_1.adb 











This makes your sources known to the ObjectAda tools. Have a look at the file UNIT.MAP 


created by adareg in the current directory if you like seeing what is happening under the 
hood. 


e Compile the source file: 





X:\some\directory> adacomp hello world 1.adb 
Front end of hello world 1.adb succeeded with no errors. 











e Build the executable program: 





X:\some\directory> adabuild hello_world_1 

ObjectAda Professional Edition Version 7.2.2: adabuild 
Copyright (c) 1997-2002 Aonix. All rights reserved. 

Linking... 

Link of hello completed successfully 











Notice that you specify the name of the main unit as argument to adabuild, not the name 
of the source file. In this case, it is Hello World 1 as in 





procedure Hello World 1 is 











More information about the tools can be found in the user guide Using the command line 
interface, installed with the Object Ada tools. 


3.3 External links 


External links 


e GNAT Online Documentation: 
e GNAT User's Guide” 
e DEC Ada: 
e Developing Ada Products on OpenVMS?" (PDF) 
e DEC Ada — Language Reference Manual? (PDF) 
e DEC Ada — Run-Time Reference”? (PDF) 





26  http://gcc.gnu.org/onlinedocs/gcc-4.0.1/gnat_ugn_unw/ 
27  http://h71000.www7 .hp.com/commercial/ada/ada_dap. pdf 
28 http://h71000.www7 .hp.com/commercial/ada/ada_lrm. pdf 
29 http://h71000.www7 .hp.com/commercial/ada/ada rtr.pdf 
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4.1 Conditionals 


Conditionals 


Conditional clauses are blocks of code that will only execute if a particular expression (the 
condition) is truet. 


4.1.1 if-else 


The ifelse statement is the simplest of the conditional statements. They are also called 
branches, as when the program arrives at an if statement during its execution, control will 
"branch" off into one of two or more "directions". An if-else statement is generally in the 
following form: 





if condition then 
statement; 
else 
other statement; 
end if; 











If the original condition is met, then all the code within the first statement is executed. 
The optional else section specifies an alternative statement that will be executed if the 
condition is false. Exact syntax will vary between programming languages, but the majority 
of programming languages (especially procedural? and structured? languages) will have some 
form of if-else conditional statement built-in. The if-else statement can usually be extended 
to the following form: 





if condition then 
statement; 
elsif condition then 
other statement; 
elsif condition then 
other statement; 
else 
another statement; 
end if; 














1 http://en.wikipedia.org/wiki/Truth/20function 
2 http://en.wikibooks.org/wiki/Computer/20ProgrammingA2FProcedural/20programming 
3 http://en.wikibooks.org/wiki/Computer/20Programming/2FStructured/,20programming 
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Only one statement in the entire block will be executed. This statement will be the first one 
with a condition which evaluates to be true. The concept of an if-else-if structure is easier 
to understand with the aid of an example: 





with Ada ; 
use Ada ; 


type Degrees is new Float range -273.15 .. Float'Last; 
Temperature : Degrees; 


if Temperature >= 40.0 then 
Put_Line ("Wow!"); 

Put_Line ("It's extremely hot"); 
elsif Temperature >= 30.0 then 
Put_Line ("It's hot"); 
elsif Temperature >= 20.0 then 
Put_Line ("It's warm"); 
elsif Temperature >= 10.0 then 
Put_Line ("It's cool"); 

elsif Temperature >= 0.0 then 
Put_Line ("It's cold"); 
else 
Put_Line ("It's freezing") ; 
end if; 











4.1.2 Optimizing hints 


When this program executes, the computer will check all conditions in order until one of 
them matches its concept of truth. As soon as this occurs, the program will execute the 
statement immediately following the condition and continue on, without checking any other 
condition for truth. For this reason, when you are trying to optimize’ a program, it is a 
good idea to sort your if-else conditions in descending probability?. This will ensure that in 
the most common scenarios, the computer has to do less work, as it will most likely only 
have to check one or two "branches" before it finds the statement which it should execute. 
However, when writing programs for the first time, try not to think about this too much 
lest you find yourself undertaking premature optimization®. 


Having said all that, you should be aware that an optimizing compiler’ might rearrange 
your if statement at will when the statement in question is free from side effects®. Among 
other techniques optimizing compilers might even apply jump tables? and binary searches!?. 


In Ada, conditional statements with more than one conditional do not use short-circuit 
evaluation by default. In order to mimic C/C++'s short-circuit evaluation, use and then 
or or else between the conditions. 





http: //en.wikipedia. org/wiki/Optimization_{2528computer_science{2529 
http://en.wikibooks.org/wiki/Probability/2FIntroduction 
http://en.wikipedia.org/wiki/Premature_optimization/23When_to_optimize 
http://en.wikipedia.org/wiki/Optimizing compiler 
http://en.wikipedia.org/wiki/Side-effect_/28computer_science/29 
http://en.wikipedia.org/wiki/Jump_table 

10  http://en.wikipedia.org/wiki/Binary_search 
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4.1.3 case 


Often it is necessary to compare one specific variable against several constant expressions. 
For this kind of conditional expression the case statement exists. For example: 





case X is 
when 1 => 


Walk The. Dog; 
when 5 => 

Launch, Nuke; 
when 8 | 10 => 

Sell All Stock; 
when others => 

Self Destruct; 


end case; 











'The subtype of X must be a discrete type, i.e. an enumeration or integer type. 


In Ada, one advantage of the case statement is that the compiler will check the coverage of 
the choices, that is, all the values of the subtype of variable X must be present or a default 
branch when others must specify what to do in the remaining cases. 


4.2 Unconditionals 


Unconditionals 


Unconditionals let you change the flow of your program without a condition. You should be 
careful when using unconditionals. Often they make programs difficult to understand. Read 
Isn't goto evil?!! for more information. 


4.2.1 return 


End a function and return to the calling procedure or function. 


For procedures: 





return; 











For functions: 





11 Chapter 4.2 on page 39 
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return Value; 











4.2.2 goto 


Goto transfers control to the statement after the label. 





goto Label; 
Dont Do Something; 


<< Label>> 











Isn't goto evil? 


One often hears that goto is evil and one should avoid using goto. But it is often overlooked 
that any return which is not the last statement inside a procedure or function is also an 
unconditional statement — a goto in disguise. There is an important difference though: a 
return is a forward only use of goto. Exceptions are also a type of goto statement; worse, 
they need not specify where they are going to! 


Therefore if you have functions and procedures with more than one return statement you 
can just as well use goto. When it comes down to readability the following two samples are 
almost the same: 





procedure Use_Return is 
begin 
Do, Something; 


if Test then 
return; 
end if; 


Do Something Else; 


return; 
end Use Return; 








procedure Use Goto is 
begin 
Do, Something; 


if Test then 
goto Exit Use Goto; 
end if; 


Do Something Else; 
<< Exit Use Goto»? 


return; 
end Use. Goto; 











Because the use of a goto needs the declaration of a label, the goto is in fact twice as readable 
than the use of return. So if readability is your concern and not a strict "don't use goto" 
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programming rule then you should rather use goto than multiple returns. Best, of course, is 
the structured approach where neither goto nor multiple returns are needed: 





procedure Use If is 
begin 
Do, Something; 
if not Test then 
Do, Something Else; 


end if; 


return; 
end Use If; 











4.3 Loops 
Loops 


Loops allow you to have a set of statements repeated over and over again. 


4.3.1 Endless Loop 


The endless loop is a loop which never ends and the statements inside are repeated forever. 
Never is meant as a relative term here — if the computer is switched off then even endless 
loops will end very abruptly. 





Endless Loop : 
loop 


Do, Something; 


end loop Endless Loop; 











The loop name (in this case, "Endless Loop") is an optional feature of Ada. Naming loops 
is nice for readability but not strictly needed. Loop names are useful though if the program 
should jump out of an inner loop, see below. 


4.3.2 Loop with condition at the beginning 


This loop has a condition at the beginning. The statements are repeated as long as the 
condition is met. If the condition is not met at the very beginning then the statements 
inside the loop are never executed. 





While Loop : 
while X «- 5 loop 


X :- Calculate Something; 


end loop While Loop; 
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4.3.3 Loop with condition at the end 


This loop has a condition at the end and the statements are repeated until the condition is 
met. Since the check is at the end the statements are at least executed once. 





Until Loop : 
loop 


X :- Calculate Something; 


exit Until Loop when X > 5; 
end loop Until Loop; 











4.3.4 Loop with condition in the middle 


Sometimes you need to first make a calculation and exit the loop when a certain criterion is 
met. However when the criterion is not met there is something else to be done. Hence you 
need a loop where the exit condition is in the middle. 





Exit Loop : 
loop 


X :- Calculate Something; 
exit Exit Loop when X > 5; 
Do Something (X); 


end loop Ezit Loop; 











In Ada the exit condition can be combined with any other loop statement as well. You can 
also have more than one exit statement. You can also exit a named outer loop if you have 
several loops inside each other. 


4.3.5 for loop 


Quite often one needs a loop where a specific variable is counted from a given start value up 
or down to a specific end value. You could use the while!? loop here — but since this is a 
very common loop there is an easier syntax available. 





For Loop : 
for I in Integer range 1 .. 10 loop 


Do Something (I) 


end loop For Loop; 











You don't have to declare both type and range as seen in the example. If you leave out the 
type then the compiler will determine the type by context and leave out the range then the 
loop will iterate over every valid value for the type given. 





12 Chapter 4.3.5 on page 42 
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As always with Ada: when 'determine by context' gives two or more possible options then 
an error will be displayed and then you have to name the type to be used. Ada will only do 
"guess-works" when it is safe to do so. 


for loop on arrays 


Another very common situation is the need for a loop which iterates over every element of 
an array. The following sample code shows you how to achieve this: 





Array Loop : 
for I in X'Range loop 


X (I) := Get Next Element; 


end loop Array Loop; 











With X being an array. Note: This syntax is mostly used on arrays — hence the name — 
but will also work with other types when a full iteration is needed. 


Unlike other loop counters, the loop counter i, in the for loop statement the value cannot be 
changed. The following is illegal. 


for i in 1 .. 10 loop 
i Ze: Ak 
end Loop: 


Also the declaration of the loop counter ceases after the body of the loop. 


Working Demo 


The following Demo shows how to iterate over every element of an integer type. 





File: range 1.adb 


with Ada ; 


procedure Range 1 is 
type Range Type is range -5 .. 10; 


package T IO renames Ada ; 
package I IO is new Ada (Range Type); 


begin 
for A in Range Type loop 
I IO.Put (Item => A, 
Width => 3, 
Base => 10); 


if A < Range_Type'Last then 
T IO.Put (","); 

else 
T. IO.New Line; 

end if; 
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end loop; 
end Range 1; 








4.4 See also 


See also 


4.4.1 Wikibook 


Ada Programming? 


4.4.2 Ada Reference Manual 


5.3 If Statements “(http 
O5rm/html/RM-5-3.html) 
5.4 Case Statements ^(http 
O5brm/html/RM-5-4.html) 
5.5 Loop Statements ^(http 
O5rm/html/RM-5-5.html) 
5.6 Block Statements ^[http 
O5brm/html/RM-5-6.html) 
5.7 Exit Statements “(http 
O5brm/html/RM-5-7.html) 
5.8 Goto Statements “(http 
O5rm/html/RM-5-8.html) 


6.5 Return Statements 


://www.adaic. 


://www.adaic. 


://www.adaic. 


://Wwww.adaic. 


://www.adaic. 


://www.adaic. 


standards/Obrm/html/RM-6-5.html) 
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org/resources/add_content/standards/ 
org/resources/add_content/standards/ 
org/resources/add_content/standards/ 
org/resources/add_content/standards/ 
org/resources/add_content/standards/ 


org/resources/add_content/standards/ 


"http: //www.adaic.org/resources/add_content/ 


http://en.wikibooks.org/wiki/Ada/20Programming 


5 Type System 


Ada's type system allows the programmer to construct powerful abstractions that represent 
the real world, and to provide valuable information to the compiler, so that the compiler can 
find many logic or design errors before they become bugs. It is at the heart of the language, 
and good Ada programmers learn to use it to great advantage. Four principles govern the 
type system: 


e Strong typing: types are incompatible with one another, so it is not possible to mix 
apples and oranges. There are, however, ways to convert between types. 

e Static typing: type checked while compiling, this allows type errors to be found earlier. 

e Abstraction: types represent the real world or the problem at hand; not how the 
computer represents the data internally. There are ways to specify exactly how a type 
must be represented at the bit level, but we will defer that discussion to another chapter. 

e Name equivalence, as opposed to structural equivalence used in most other languages. 
Two types are compatible if and only if they have the same name; not if they just happen 
to have the same size or bit representation. You can thus declare two integer types with 
the same ranges that are totally incompatible, or two record types with exactly the same 
components, but which are incompatible. 


Types are incompatible with one another. However, each type can have any number of 
subtypes, which are compatible with one another, and with their base type. 


5.1 Predefined types 
Predefined types 


There are several predefined types, but most programmers prefer to define their own, 
application-specific types. Nevertheless, these predefined types are very useful as interfaces 
between libraries developed independently. The predefined library, obviously, uses these 
types too. 


'These types are predefined in the Standard package: 
Integer 


This type covers at least the range —215 +1 .. +215 —1 (RM 3.5.4 (21) ^ (http://www .adaic. 
org/resources/add content/standards/Obrm/html/RM-3-5-4.html) ). The Standard 
also defines Natural and Positive subtypes of this type. 


Float 


There is only a very weak implementation requirement on this type (RM 3.5.7 (14) ^(http: 
/ /www.adaic.org/resources/add content/standards/Obrm/html/RM-3-5-7.html) ); 
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most of the time you would define your own floating-point types, and specify your precision 
and range requirements. 


Duration 


A fixed point type! used for timing. It represents a period of time in sec- 
onds (RM A.1 (43) ^[http://www.adaic.org/resources/add content/standards/ 
O5rm/html/RM-A-1.html) ). 

Character 

A special form of Enumerations?. There are three predefined kinds of character types: 
8-bit characters (called Character), 16-bit characters (called Wide Character), and 32-bit 
characters (Wide Wide Character). Character has been present since the first version of 
the language (Ada 83°), Wide Character was added in Ada 954, while the type Wide - 
Wide Character is available with Ada 20055. 

String? 


Three indefinite array types’, of Character, Wide Character, and Wide Wide Character 
respectively. The standard library contains packages for handling strings in three variants: 
fixed length (Ada ), with varying length below a certain upper bound (Ada ), and unbounded 
length (Ada ). Each of these packages has a Wide and a Wide Wide variant. 


Boolean 
A Boolean in Ada is an Enumeration? of False and True with special semantics. 


Packages System and System predefine some types which are primarily useful for low-level 
programming and interfacing to hardware. 


System. Address 
An address in memory. 
System.Storage Elements.Storage Offset 


An offset, which can be added to an address to obtain a new address. You can also 
subtract one address from another to get the offset between them. Together, Address, 
Storage Offset and their associated subprograms provide for address arithmetic. 


System.Storage Elements.Storage Count 


A subtype of Storage Offset which cannot be negative, and represents the memory size of 
a data structure (similar to C's size t). 


System.Storage Elements.Storage Element 





Chapter 10 on page 79 

Chapter 8 on page 73 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAda/2083 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAda/2095 
Chapter 23 on page 219 

Chapter 15 on page 119 

Chapter 11 on page 83 

Chapter 8 on page 73 
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In most computers, this is a byte. Formally, it is the smallest unit of memory that has an 
address. 


System.Storage Elements.Storage Array 


An array of Storage Elements without any meaning, useful when doing raw memory access. 


5.2 The Type Hierarchy 
The Type Hierarchy 


Types are organized hierarchically. A type inherits properties from types above it in the 
hierarchy. For example, all scalar types (integer, enumeration, modular, fixed-point and 
floating-point types) have operators? "<", ">" and arithmetic operators defined for them, and 
all discrete types can serve as array indexes. 


Ada types 


Elementary types Composite types 


=] [ww] [e] e Pa 


I 

: 
I 
I 


"sl Das 


Numeric types 


Figure 1 Ada type hierarchy 





9 Chapter 37 on page 301 
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Here is a broad overview of each category of types; please follow the links for detailed 
explanations. Inside parenthesis there are equivalences in C and Pascal for readers familiar 
with those languages. 


Signed Integers!? (int, INTEGER) 
Signed Integers are defined via the range!! of values needed. 
Unsigned Integers!? (unsigned, CARDINAL) 


Unsigned Integers are called Modular Types!?. Apart from being unsigned they also have 
wrap-around functionality. 


Enumerations!^ (enum, char, bool, BOOLEAN) 

Ada Enumeration! types are a separate type family. 
Floating point!’ (float, double, REAL) 

Floating point types are defined by the digits!" needed, the relative error bound. 
Ordinary and Decimal Fixed Point!? (DECIMAL) 

Fixed point types are defined by their delta!?, the absolute error bound. 
Arrays” ([], ARRAY [|] OF, STRING ) 

Arrays with both compile-time and run-time determined size are supported. 
Record?! (struct, class, RECORD OF) 

A record is a composite type?? that groups one or more fields. 
Access? (*, ^, POINTER TO) 

Ada's Access? types may be more than just a simple memory address. 
Task & Protected?? (no equivalence in C or Pascal) 

Task and Protected types allow the control of concurrency 


Interfaces?Ó (no equivalence in C or Pascal) 





10 Chapter 6 on page 69 

11 Chapter 6 on page 69 

12 Chapter 7 on page 71 

13 Chapter 7 on page 71 

14 Chapter 8 on page 73 

15 Chapter 8 on page 73 

16 Chapter 9 on page 77 

17 Chapter 9 on page 77 

18 Chapter 10 on page 79 

19 Chapter 10 on page 79 

20 Chapter 11 on page 83 

21 Chapter 12 on page 91 

22  http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes/23List/200f/20types 
23 Chapter 13 on page 99 

24 Chapter 13 on page 99 

25 Chapter 21 on page 173 

26  http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Finterface 
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New in Ada 2005, these types are similar to the Java interfaces. 


5.2.1 Classification of Types 


The types of this hierarchy can be classified as follows. 


Specific vs. Class-wide 





type T is ... -- specific 
T'Class -- class-wide 











Operations of specific types are non-dispatching, those on class-wide types are dispatching. 


New types can be declared by deriving from specific types; primitive operations are inherited 
by derivation. You cannot derive from class-wide types. 


Constrained vs. Unconstrained 











type I is range 1 .. 10; -- constrained 
type AC is array (1 .. 10) of ... -- constrained 
type AU is array (I range <>) of ... -- unconstrained 
type R (X: Discriminant [:= Default]) is ... -- unconstrained 











By giving a constraint to an unconstrained subtype, a subtype or object becomes constrained: 





subtype RC is R (Value); -- constrained subtype of R 

OC: R (Value); -- constrained object of anonymous 
constrained subtype of R 

OU: R; -- unconstrained object 











Declaring an unconstrained object is only possible if a default value is given in the type 
declaration above. The language does not specify how such objects are allocated. GNAT 
allocates the maximum size, so that size changes that might occur with discriminant changes 
present no problem. Another possibility is implicit dynamic allocation on the heap and 
deallocation followed be a re-allocation when the size changes. 


Definite vs. Indefinite 











type I is range 1 .. 10; -- definite 
type RD (X: Discriminant := Default) is ... -- definite 
type T (<>) is ... -- indefinite 
type AU is array (I range <>) of ... -- indefinite 
type RI (X: Discriminant) is ... -- indefinite 











Definite subtypes allow the declaration of objects without initial value, since objects of 
definite subtypes have constraints that are known at creation-time. Object declarations of 
indefinite subtypes need an initial value to supply a constraint; they are then constrained by 
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the constraint delivered by the initial value. 





OT: T := Expr; -- some initial expression 
(object, function call, etc.) 

OA: AU := (3 => 10, 5 => 2, 4 => 4); -- index range is now 3 .. 5 
OR: RI := Expr; -- again some initial 


expression as above 











Unconstrained vs. Indefinite 


Note that unconstrained subtypes are not necessarily indefinite as can be seen above with 
RD: it is a definite unconstrained subtype. 


5.3 Concurrency Types 


Concurrency Types 


The Ada language uses types for one more purpose in addition to classifying data + operations. 
The type system integrates concurrency (threading, parallelism). Programmers will use 
types for expressing the concurrent threads of control of their programs. 


The core pieces of this part of the type system, the task types and the protected types 
are explained in greater depth in a section on tasking?’. 


5.4 Limited Types 
Limited Types 


Limiting a type means disallowing assignment. The “concurrency types” described above 
are always limited. Programmers can define their own types to be limited, too, like this: 





type T is limited ...; 











(The ellipsis stands for private, or for a record definition, see the corresponding subsection 
on this page.) A limited type also doesn't have an equality operator unless the programmer 
defines one. 


You can learn more in the limited types? chapter. 


5.5 Defining new types and subtypes 





27 Chapter 21 on page 173 
28 Chapter 14 on page 113 
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Defining new types and subtypes 


You can define a new type with the following syntax: 





type T is... 











followed by the description of the type, as explained in detail in each category of type. 


Formally, the above declaration creates a type and its first subtype named T. The type itself, 
correctly called the "type of T", is anonymous; the RM refers to it as T (in italics), but often 
speaks sloppily about the type T. But this is an academic consideration; for most purposes, 
it is sufficient to think of T as a type. For scalar types, there is also a base type called 
T'Base, which encompasses all values of T. 


For signed integer types, the type of T comprises the (complete) set of mathematical integers. 
The base type is a certain hardware type, symmetric around zero (except for possibly one 
extra negative value), encompassing all values of T. 


As explained above, all types are incompatible; thus: 





type Integer 1 is range 1 .. 10; 
type Integer 2 is range 1 .. 10; 
A : Integer 1 :- 8; 

B : Integer 2 :- A; --illegal! 











is illegal, because Integer 1 and Integer 2 are different and incompatible types. It is this 
feature which allows the compiler to detect logic errors at compile time, such as adding a 
file descriptor to a number of bytes, or a length to a weight. The fact that the two types 
have the same range does not make them compatible: this is name equivalence in action, 
as opposed to structural equivalence. (Below, we will see how you can convert between 
incompatible types; there are strict rules for this.) 


5.5.1 Creating subtypes 


You can also create new subtypes of a given type, which will be compatible with each other, 
like this: 














type Integer 1 is range 1 .. 10; 
subtype Integer 2 is Integer 1 range 7 .. 11;  --bad 
subtype Integer 3 is Integer 1i'Base range 7 .. 11; --OK 
A : Integer 1 :- 8; 
B : Integer 3 :- A; --OK 
'The declaration of Integer 2 is bad because the constraint 7 .. 11 is not compatible 


with Integer 1; it raises Contraint Error at subtype elaboration time. 


Integer 1 and Integer 3 are compatible because they are both subtypes of the same type, 
namely Integer 1'Base. 
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It is not necessary that the subtype ranges overlap, or be included in one another. The 
compiler inserts a run-time range check when you assign A to B; if the value of A, at that 
point, happens to be outside the range of Integer 3, the program raises Constraint Error. 


There are a few predefined subtypes which are very useful: 





subtype Natural is Integer range 0 .. Integer'Last; 
subtype Positive is Integer range 1 .. Integer'Last; 











5.5.2 Derived types 


A derived type is a new, full-blown type created from an existing one. Like any other type, 
it is incompatible with its parent; however, it inherits the primitive operations defined for 
the parent type. 





type Integer 1 is range 1 .. 10; 

type Integer 2 is new Integer 1 range 2 .. 8; 
A : Integer 1 :- 8; 

B : Integer 2 :- A; --illegal! 











Here both types are discrete; it is mandatory that the range of the derived type be included 
in the range of its parent. Contrast this with subtypes. T'he reason is that the derived type 
inherits the primitive operations defined for its parent, and these operations assume the 
range of the parent type. Here is an illustration of this feature: 





procedure Derived Types is 


package Pak is 
type Integer 1 is range 1 .. 10; 
procedure P (I: in Integer 1); --primitive operation, assumes 1 .. 10 
type Integer 2 is new Integer 1 range 8 .. 10; --must not break P's assumption 
--procedure P (I: in Integer 2); inherited P implicitly defined here 
end Pak; 


package body Pak is 


--omitted 
end Pak; 
use Pak; 
A: Integer 1 :- 4; 
B: Integer 2 :- 9; 


begin 
P (B); --OK, call the inherited operation 


end Derived Types; 











When we call P. (B), the parameter B is converted to Integer 1; this conversion of course 
passes since the set of acceptable values for the derived type (here, 8 .. 10) must be included 
in that of the parent type (1.. 10). Then P is called with the converted parameter. 
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Consider however a variant of the example above: 





procedure Derived Types is 


package Pak is 
type Integer 1 is range 1 .. 10; 
procedure P (I: in Integer 1; J: out Integer 1); 
type Integer 2 is new Integer 1 range 8 .. 10; 
end Pak; 


package body Pak is 
procedure P (I: in Integer 1; J: out Integer 1) is 
begin 
aert o 45 
end P; 
end Pak; 


use Pak; 


A: Integer 1 := 4; X: Integer 1; 
B: Integer 2 := 8; Y: Integer 2; 


begin 


P (A, X); 
P (B, Y); 


end Derived Types; 











When P (B, Y) is called, both parameters are converted to Integer 1. Thus the range 
check on J (7) in the body of P will pass. However on return parameter Y is converted back 
to Integer, 2 and the range check on Y will of course fail. 


With the above in mind, you will see why in the following program Constraint Error will 
be called at run time. 





procedure Derived Types is 


package Pak is 
type Integer 1 is range 1 .. 10; 
procedure P (I: in Integer 1; J: out Integer 1); 
type Integer 2 is new Integer i'Base range 8 .. 12; 
end Pak; 


package body Pak is 
procedure P (I: in Integer 1; J: out Integer 1) is 
begin 
J := I - 1; 
end P; 
end Pak; 
use Pak; 
B: Integer_2 := 11; Y: Integer_2; 
begin 


P (B, Y); 


end Derived_Types; 
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5.6 Subtype categories 
Subtype categories 


Ada supports various categories of subtypes which have different abilities. Here is an overview 
in alphabetical order. 


5.6.1 Anonymous subtype 


A subtype which does not have a name assigned to it. Such a subtype is created with a 
variable declaration: 





X : String (1 .. 10) := (others => ' '); 











Here, (1 .. 10) is the constraint. This variable declaration is equivalent to: 





subtype Anonymous String Type is String (1 .. 10); 


X : Anonymous String Type := (others => ' '); 











5.6.2 Base type 


In Ada, all types are anonymous? and only subtypes may be named?9. For scalar types, 
there is a special subtype of the anonymous type, called the base type, which is nameable 
with the 'Base attribute. The base type comprises all values of the first subtype. Some 
examples: 





type Int is range O .. 100; 











The base type Int'Base is a hardware type selected by the compiler that comprises 
the values of Int. Thus it may have the range -2" .. 27-1 or -215 .. 215-1 or any other such type. 





type Enum is (A, B, C, D); 
type Short is new Enum range A .. C; 











Enum'Base is the same as Enum, but Short ' Base also holds the literal D. 





29 Chapter 
30 Chapter 


1.1 on page 67 


5.1 
5.6.6 on page 56 
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5.6.3 Constrained subtype 


A subtype of an indefinite subtype?! that adds constraints. The following example defines a 
10 character string sub-type. 





subtype String 10 is String (1 .. 10); 











You cannot partially constrain an unconstrained subtype: 





type My Array is array (Integer range <>, Integer range <>) of Some Type; 
-- subtype Constr is My Array (1 .. 10, Integer range <>); illegal 


subtype Constr is My Array (1 .. 10, -100 .. 200); 











Constraints for all indices must be given, the result is necessarily a definite subtype??. 


5.6.4 Definite subtype 
A definite subtype?? is a subtype whose size is known at compile-time. All subtypes which 
are not indefinite subtypes?4 are, by definition, definite subtypes??. 


Objects of definite subtypes may be declared without additional constraints. 


5.6.5 Indefinite subtype 


An indefinite subtype is a subtype whose size is not known at compile-time but is 
dynamically calculated at run-time. An indefinite subtype does not by itself provide enough 
information to create an object; an additional constraint or explicit initialization expression 
is necessary in order to calculate the actual size and therefore create the object. 





X : String :- "This is a string"; 











X is an object of the indefinite (sub)type String. Its constraint is derived implicitly from its 
initial value. X may change its value, but not its bounds. 


It should be noted that it is not necessary to initialize the object from a literal. You can 
also use a function. For example: 





31  http://en.wikibooks.org/wiki/ada/20ProgrammingA2FSubtypes/A23indefinite subtype 
32  http://en.wikibooks.org/wiki/ada/20ProgrammingA2FSubtypesA23definite subtype 
33  http://en.wikibooks.org/wiki/ada/20ProgrammingA2FSubtypesA23definite subtype 
34  http://en.wikibooks.org/wiki/ada/20ProgrammingA2FSubtypes/A23indefinite subtype 
35  http://en.wikibooks.org/wiki/ada/20ProgrammingA2FSubtypesA23definite subtype 
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X : String :- Ada.Command Line.Argument (1); 











'This statement reads the first command-line argument and assigns it to X. 


5.6.6 Named subtype 


A subtype which has a name assigned to it. “First subtypes" are created with 
the keyword type (remember that types are always anonymous, the name in a type 
declaration is the name of the first subtype), others with the keyword subtype. For example: 





type Count To Ten is range 1 .. 10; 











Count to Ten is the first subtype of a suitable integer base type. However, if you would 
like to use this as an index constraint on String, the following declaration is illegal: 





subtype Ten Characters is String (Count to Ten); 











This is because String has Positive as index, which is a subtype of Integer (these declarations 
are taken from package Standard): 





subtype Positive is Integer range 1 .. Integer'Last; 


type String is (Positive range <>) of Character; 











So you have to use the following declarations: 





subtype Count_To_Ten is Integer range 1 .. 10; 
subtype Ten Characters is String (Count to Ten); 











Now Ten Characters is the name of that subtype of String which is constrained to Count - 
To Ten. You see that posing constraints on types versus subtypes has very different 
effects. 


5.6.7 Unconstrained subtype 


A subtype of an indefinite subtype that does not add a constraint only introduces a new 
name for the original subtype. 





subtype My String is String; 











My String and String are interchangeable. 
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5.7 Qualified expressions 


Qualified expressions 


In most cases, the compiler is able to infer the type of an expression; for example: 





type Enum is (A, B, C); 
E : Enum := A; 











Here the compiler knows that A is a value of the type Enum. But consider: 





procedure Bad is 
type Enum 1 is (A, B, C); 


procedure P (E : in Enum 1) is... --omitted 
type Enum 2 is (A, X, Y, Z); 
procedure P (E : in Enum 2) is... --omitted 
begin 
P (A); --tllegal: ambiguous 
end Bad; 











The compiler cannot choose between the two versions of P; both would be equally valid. To 
remove the ambiguity, you use a qualified expression: 





P (Enum 1'(A)); --OK 











As seen in the following example, this syntax is often used when creating new objects. If 
you try to compile the example, it will fail with a compilation error since the compiler will 
determine that 256 is not in range of Byte. 





File: convert evaluate as.adb 


with Ada ; 


procedure Convert Evaluate As is 
type Byte is mod 2**8; 
type Byte Ptr is access Byte; 


package T IO renames Ada ; 
package M IO is new Ada (Byte); 


A : constant Byte Ptr := new Byte' (256); 
begin 
T_IO.Put ("A ="); 
M IO.Put (Item => A.all, 
Width => 5, 
Base => 10); 
end Convert_Evaluate_As; 











5.8 Type conversions 
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Type conversions 


Data do not always come in the format you need them. You must, then, face the task of 
converting them. As a true multi-purpose language with a special emphasis on "mission 
critical", "system programming" and "safety", Ada has several conversion techniques. The 
most difficult part is choosing the right one, so the following list is sorted in order of utility. 
You should try the first one first; the last technique is a last resort, to be used if all others 
fail. There are also a few related techniques that you might choose instead of actually 
converting the data. 


Since the most important aspect is not the result of a successful conversion, but how the 
system will react to an invalid conversion, all examples also demonstrate faulty conversions. 


5.8.1 Explicit type conversion 


An explicit type conversion looks much like a function call; it does not use the tick 
(apostrophe, ') like the qualified expression does. 





Type_Name (Expression) 











The compiler first checks that the conversion is legal, and if it is, it inserts a run-time 
check at the point of the conversion; hence the name checked conversion. If the conversion 
fails, the program raises Constraint_ Error. Most compilers are very smart and optimise 
away the constraint checks; so, you need not worry about any performance penalty. Some 
compilers can also warn that a constraint check will always fail (and optimise the check with 
an unconditional raise). 


Explicit type conversions are legal: 


e between any two numeric types 

e between any two subtypes of the same type 

e between any two types derived from the same type (note special rules for tagged types) 
e between array types under certain conditions (see RM 4.6(24.2/2..24.7/2)) 

e and nowhere else 


(The rules become more complex with class-wide and anonymous access types.) 





I: Integer := Integer (10);  --Unnecessary explicit type conversion 
J: Integer :- 10; --Implicit conversion from universal integer 
K: Integer := Integer'(10); --Use the value 10 of type Integer: qualified expression 


--(qualification not necessary here). 











This example illustrates explicit type conversions: 





File: convert_checked.adb 
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with Ada ; 


procedure Convert Checked is 
type Short is range -128 .. +127; 
type Byte is mod 256; 


package T IO renames Ada ; 
package I IO is new Ada (Short); 
package M IO is new Ada (Byte); 


A : Short := -1; 
B : Byte; 
begin 
B := Byte (A); -- range check will lead to Constraint Error 


T IO.Put ("A = "); 
I IO.Put (Item => A, 
Width -» 5, 
Base => 10); 
T IO.Put (", B="); 
M IO.Put (Item => B, 
Width -» 5, 
Base => 10); 
end Convert_Checked; 








Explicit conversions are possible between any two numeric types: integers, fixed-point and 
floating-point types. If one of the types involved is a fixed-point or floating-point type, 
the compiler not only checks for the range constraints (thus the code above will raise 


Constraint Error), but also performs any loss of precision necessary. 


Example 1: the loss of precision causes the procedure to only ever print "0" or "1", since P / 


100 is an integer and is always zero or one. 





with Ada.Text I0; 
procedure Naive Explicit Conversion is 
type Proportion is digits 4 range 0.0 .. 1.0; 


type Percentage is range O .. 100; 
function To Proportion (P : in Percentage) return Proportion is 
begin 


return Proportion (P / 100); 
end To Proportion; 
begin 
Ada.Text IO.Put Line (Proportion'Image (To Proportion (27))); 
end Naive Explicit Conversion; 








Example 2: we use an intermediate floating-point type to guarantee the precision. 





with Ada.Text I0; 
procedure Explicit Conversion is 
type Proportion is digits 4 range 0.0 .. 1.0; 
type Percentage is range O .. 100; 
function To Proportion (P : in Percentage) return Proportion is 
type Prop is digits 4 range 0.0 .. 100.0; 
begin 
return Proportion (Prop (P) / 100.0); 
end To Proportion; 
begin 
Ada.Text IO.Put Line (Proportion'Image (To Proportion (27))); 
end Explicit Conversion; 
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You might ask why you should convert between two subtypes of the same type. Àn example 
will illustrate this. 





subtype String 10 is String (1 .. 10); 
X: String :- "A line long enough to make the example valid"; 
Slice: constant String :- String 10 (X (11 .. 20)); 











Here, Slice has bounds 1 and 10, whereas X (11 .. 20) has bounds 11 and 20. 


5.8.2 Change of Representation 


'Type conversions can be used for packing and unpacking of records or arrays. 





type Unpacked is record 
--any components 
end record; 


type Packed is new Unpacked; 
for Packed use record 

--component clauses for some or for all components 
end record; 








P: Packed; 

U: Unpacked; 

P := Packed (U); --packs U 

U := Unpacked (P); --unpacks P 











5.8.3 Checked conversion for non-numeric types 


'The examples above all revolved around conversions between numeric types; it is possible to 
convert between any two numeric types in this way. But what happens between non-numeric 
types, e.g. between array types or record types? The answer is two-fold: 


e you can convert explicitly between a type and types derived from it, or between types 
derived from the same type, 
e and that's all. No other conversions are possible. 


Why would you want to derive a record type from another record type? Because of 
representation clauses. Here we enter the realm of low-level systems programming, which is 
not for the faint of heart, nor is it useful for desktop applications. So hold on tight, and 
let's dive in. 


Suppose you have a record type which uses the default, efficient representation. Now you 
want to write this record to a device, which uses a special record format. This special 
representation is more compact (uses fewer bits), but is grossly inefficient. You want to 
have a layered programming interface: the upper layer, intended for applications, uses 
the efficient representation. The lower layer is a device driver that accesses the hardware 
directly and uses the inefficient representation. 
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package Device Driver is 
type Size Type is range O .. 64; 
type Register is record 
A, B : Boolean; 
Size : Size Type; 
end record; 


procedure Read (R : out Register); 
procedure Write (R : in Register); 
end Device Driver; 











'The compiler chooses a default, efficient representation for Register. For example, on 
a 32-bit machine, it would probably use three 32-bit words, one for A, one for B and 
one for Size. This efficient representation is good for applications, but at one point 
we want to convert the entire record to just 8 bits, because that's what our hardware requires. 





package body Device Driver is 
type Hardware Register is new Register; --Derived type. 
for Hardware Register use record 
A at O range O .. 0; 
B at 0 range 1 .. 1; 
Size at 0 range 2 .. 7; 
end record; 


function Get return Hardware Register; --Body omitted 
procedure Put (H : in Hardware Register); --Body omitted 


procedure Read (R : out Register) is 


H : Hardware Register :- Get; 
begin 

R := Register (H); --Explicit conversion. 
end Read; 


procedure Write (R : in Register) is 
begin 
Put (Hardware Register (R)); --Explicit conversion. 
end Write; 
end Device Driver; 











In the above example, the package body declares a derived type with the inefficient, but 
compact representation, and converts to and from it. 


This illustrates that type conversions can result in a change of representation. 


5.8.4 View conversion, in object-oriented programming 


Within object-oriented programming? you have to distinguish between specific types and 
class-wide types. 


With specific types, only conversions to ancestors are possible and, of course, are checked. 
During the conversion, you do not "drop' any components that are present in the derived 
type and not in the parent type; these components are still present, you just don't see them 
anymore. This is called a view conversion. 





36 Chapter 22 on page 187 
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'There are no conversions to derived types (where would you get the further components from?); 
extension aggregates have to be used instead. 





type Parent Type is tagged null record; 
type Child Type is new Parent Type with null record; 


Child Instance : Child Type; 


--View conversion from the child type to the parent type: 
Parent View : Parent Type :- Parent Type (Child Instance); 











Since, in object-oriented programming, an object of child type is an object of the parent 
type, no run-time check is necessary. 


With class-wide types, conversions to ancestor and child types are possible and are checked 
as well. These conversions are also view conversions, no data is created or lost. 





procedure P (Parent View : Parent Type'Class) is 
--View conversion to the child type: 
One : Child_Type := Child_Type (Parent_View) ; 


--View conversion to the class-wide child type: 
Two : Child_Type'Class := Child_Type'Class (Parent_View) ; 











This view conversion involves a run-time check to see if Parent_View is indeed a view of an 
object of type Child_Type. In the second case, the run-time check accepts objects of type 
Child_Type but also any type derived from Child_Type. 


View renaming 


A renaming declaration does not create any new object and performs no conversion; it 
only gives a new name to something that already exists. Performance is optimal since the 
renaming is completely done at compile time. We mention it here because it is a common 
idiom in object oriented programming?" to rename the result of a view conversion. 





type Parent Type is tagged record 
«components»; 

end record; 

type Child Type is new Parent Type with record 
«further components»; 

end record; 


Child Instance : Child Type; 
Parent View : Parent Type'Class renames Parent Type'Class (Child Instance); 











Now, Parent View is not a new object, but another name for Child Instance viewed as 
the parent, i.e. only the parent components are visible, the further child components are 
hidden. 





37 Chapter 22 on page 187 
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5.8.5 Address conversion 


Ada's access type?? is not just a memory location (a thin pointer). Depending on imple- 
mentation and the access type?? used, the access?? might keep additional information (a fat 
pointer). For example GNAT keeps two memory addresses for each access?! to an indefinite 
object — one for the data and one for the constraint informations (Size, First, Last). 


If you want to convert an access to a simple memory location you can use the package 
System . Note however that an address and a fat pointer cannot be converted reversibly 
into one another. 


The address of an array object is the address of its first component. Thus the bounds get 
lost in such a conversion. 





type My Array is array (Positive range <>) of Something; 
A: My Array (50 .. 100); 


A'Address = A(A'First)'Address 











5.8.6 Unchecked conversion 


One of the great criticisms of Pascal was "there is no escape". The reason was that 
sometimes you have to convert the incompatible. For this purpose, Ada has the generic 
function Unchecked Conversion: 





generic 
type Source (<>) is limited private; 
type Target (<>) is limited private; 
function Ada (S : Source) return Target; 











Unchecked ` Conversion will bit-copy the source data and reinterprete them under the target 
type without any checks. It is your chore to make sure that the requirements on unchecked 
conversion as stated in RM 13.9 ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-13-9.html) are fulfilled; if not, the result is implementation 
dependent and may even lead to abnormal data. Use the 'Valid attribute after the conversion 
to check the validity of the data in problematic cases. 


A function call to (an instance of) Unchecked_ Conversion will copy the source to the 
destination. The compiler may also do a conversion in place (every instance has the 
convention Intrinsic). 


To use Unchecked_ Conversion you need to instantiate the generic. 





38 Chapter 13 on page 99 
39 Chapter 13 on page 99 
40 Chapter 13 on page 99 
41 Chapter 13 on page 99 
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In the example below, you can see how this is done. When run, the example will output "A 
= -1, B = 255". No error will be reported, but is this the result you expect? 





File: convert unchecked.adb 


with Ada ; 
with Ada ; 


procedure Convert Unchecked is 


type Short is range -128 .. +127; 
type Byte is mod 256; 


package T IO renames Ada ; 
package I IO is new Ada (Short); 
package M IO is new Ada (Byte); 


function Convert is new Ada (Source => Short, 
Target => 
Byte); 


A : constant Short := -1; 
B : Byte; 


begin 


B := Convert (A); 

T_IO.Put ("A ="); 

I IO.Put (Item => A, 
Width => 5, 
Base => 10); 

T IO.Put (", B="); 

M IO.Put (Item => B, 
Width => 5, 
Base => 10); 


end Convert_Unchecked; 











There is of course a range check in the assignment B := Convert (A);. Thus if B were 
defined as B: Byte range 0 .. 10;, Constraint Error would be raised. 


5.8.7 Overlays 


If the copying of the result of Unchecked_Conversion is too much waste in terms of 
performance, then you can try overlays, i.e. address mappings. By using overlays, both 
objects share the same memory location. If you assign a value to one, the other changes as 
well. The syntax is: 





for Target'Address use expression; 
pragma (Ada, Target); 











where expression defines the address of the source object. 


While overlays might look more elegant than Unchecked_Conversion, you should be aware 
that they are even more dangerous and have even greater potential for doing something very 
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wrong. For example if Source'Size < Target' Size and you assign a value to Target, you 
might inadvertently write into memory allocated to a different object. 


You have to take care also of implicit initializations of objects of the target type, since they 
would overwrite the actual value of the source object. The Import pragma with convention 
Ada can be used to prevent this, since it avoids the implicit initialization, RM B.1 “{http: 
//wiw.adaic.org/resources/add_content/standards/05rm/htm1/RM-B-1.htm1} . 


The example below does the same as the example from "Unchecked Conversion". 





File: convert, address, mapping.adb 


with Ada ; 

procedure Convert Address Mapping is 
type Short is range -128 .. +127; 
type Byte is mod 256; 


package T IO renames Ada ; 
package I IO is new Ada (Short); 
package M IO is new Ada (Byte); 


A : aliased Short; 
B : aliased Byte; 


for B'Address use A'Address; 
pragma (Ada, B); 


begin 


T_IO.Put ("A ="); 

I IO.Put (Item => A, 
Width => 5, 
Base => 10); 

T IO.Put (", B="); 


M IO.Put (Item => B, 
Width => 5, 
Base => 10); 


end Convert_Address_Mapping; 











5.8.8 Export / Import 


Just for the record: There is still another method using the pragma and pragma pragmas. 
However, since this method completely undermines Ada's visibility and type concepts even 
more than overlays, it has no place here in this language introduction and is left to experts. 


5.9 Elaborated Discussion of Types for Signed Integer Types 
Elaborated Discussion of Types for Signed Integer Types 


As explained before, a type declaration 
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type T is range 1 .. 10; 











declares an anonymous type T and its first subtype T (please note the italicization). T 
encompasses the complete set of mathematical integers. Static expressions and named 
numbers make use of this fact. 


All numeric integer literals are of type Universal Integer. They are converted to the 
appropriate specific type where needed. Universal Integer itself has no operators. 


Some examples with static named numbers: 





Si: constant :- Integer'Last + Integer'Last; --"4" of Integer 

S2: constant := Long Integer'Lasi + 1; --"4" of Long Integer 
S3: constant :- Si + 82; --"4" of root integer 
S4: constant :- Integer'Last + Long Integer'Last; --illegal 











Static expressions are evaluated at compile-time on the appropriate types with no overflow 
checks, i.e. mathematically exact (only limited by computer store). The result is then 
implicitly converted to Universal Integer. 


The literal 1 in 82 is of type Universal Integer and implicitly converted to Long Integer. 


83 implicitly converts the summands to root. integer, performs the calculation and converts 
back to Universal, Integer. 


S4 is illegal because it mixes two different types. You can however write this as 





S5: constant :- Integer'Pos (Integer'Last) * Long Integer'Pos 
(Long Integer'Last); --"+" of root integer 











where the Pos attributes convert the values to Universal Integer, which are then further 
implicitly converted to root integer, added and the result converted back to Universal - 
Integer. 


root integer is the anonymous greatest integer type representable by the hardware. It has 
the range System.Min Integer .. System.Max Integer. All integer types are rooted 
at root integer, ie. derived from it. Universal Integer can be viewed as root - 
integer'Class. 


During run-time, computations of course are performed with range checks and overflow 
checks on the appropriate subtype. Intermediate results may however exceed the range 
limits. Thus with I, J, K of the subtype T above, the following code will return the correct 
result: 





I := 10; 

J := 8; 

K := (I + J) - 12; 

--I ze I + J; -- range check would fail, leading to Constraint_Error 
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Real literals are of type Universal Real, and similar rules as the ones above apply accord- 
ingly. 


5.10 Relations between types 


Relations between types 


Types can be made from other types. Array types, for example, are made from two types, 
one for the arrays! index and one for the arrays! components. An array, then, expresses an as- 
sociation, namely that between one value of the index type and a value of the component type. 





type Color is (Red, Green, Blue); 
type Intensity is range O .. 255; 


type Colored Point is array (Color) of Intensity; 











'The type Color is the index type and the type Intensity is the component type of the 


array type Colored Point. See array?^. 


5.11 See also 


See also 


5.11.1 Wikibook 


e Ada Programming* 


5.11.2 Ada Reference Manual 


e 3.2.1 Type Declarations “{http://www.adaic.org/resources/add_content/ 
standards/05rm/htm1/RM-3-2-1.htm1} 

e 3.3 Objects and Named Numbers ^[http://www.adaic.org/resources/add content/ 
standards/05rm/htm1/RM-3-3.htm1} 

e 3.7 Discriminants “{http://www.adaic.org/resources/add_content/standards/ 
O5rm/htm1/RM-3-7 .htm1} 

e 3.10 Access Types “{http://www.adaic.org/resources/add_content/standards/ 
O5rm/htm1/RM-3-10.htm1} 

e 4.9 Static Expressions and Static Subtypes “{http://www.adaic.org/resources/add_ 
content/standards/05rm/htm1/RM-4-9.htm1} 

e 13.9 Unchecked Type Conversions *{http://www.adaic.org/resources/add_content/ 
standards/05rm/htm1/RM-13-9.htm1} 





42 Chapter 11 on page 83 
43 | http://en.wikibooks. org/wiki/Ada/20Programming 
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13.3 Operational and Representation Attributes “{http://www.adaic.org/resources/ 


add content/standards/Obrm/htm1/RM-13-3.htm1l) 
e Annex K (informative) Language-Defined Attributes ^(http://www.adaic.org/ 


resources/add_content/standards/05rm/htm1/RM-K.htm1} 
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6 Integer types 


A range is a signed integer value which ranges from a First to a last Last. It is defined as 





range First .. Last 











When a value is assigned to an object with such a range constraint, the value is checked for 
validity and Constraint Error exception! is raised when the value is not within First to 
Last. 


When declaring a range type, the corresponding mathematical operators are implicitly 
declared by the language at the same place. 


'The compiler is free to choose a suitable underlaying hardware type for this user defined 
type. 


6.1 Working demo 
Working demo 


'The following Demo defines a new range from -5 to 10 and then prints the whole range out. 





File: range 1.adb 


with Ada ; 


procedure Range 1 is 
type Range Type is range -5 .. 10; 


package T IO renames Ada.Text I0; 
package I IO is new Ada.Text IO.Integer IO (Range Type); 


begin 
for A in Range Type loop 
I IO.Put ( 
Item => A, 
Width => 3, 
Base => 10); 


if A < Range Type'Lasi then 
T IO.Put (","); 

else 
T. IO. New Line; 














1 Chapter 19 on page 153 
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end if; 
end loop; 
end Range 1; 








6.2 See also 


See also 


6.2.1 Wikibook 


e Ada Programming? 
e Ada Programming/ Types? 
e Ada Programming/Keywords/range?* 


6.2.2 Ada Reference Manual 


e 4.4 Expressions “{http://www.adaic.org/resources/add_content/standards/05rm/ 
htm1/RM-4-4.htm1} 


e 3.5.4 Integer Types *{http://www.adaic.org/resources/add_content/standards/ 
O5rm/html/RM-3-5-4.html) 


es:Programación en Ada/Tipos/Enteros? 





http://en.wikibooks.org/wiki/Ada/20Programming 
http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Frange 

http: //es.wikibooks.org/wiki/Programaci/F3n/20en%20Ada/2FTipos/2FEnteros 


oR W bd 
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7 Unsigned integer types 


7.1 Description 
Description 
Unsigned integers in Ada have a value range from 0 to some positive number (not necessarily 


1 subtracted from some power of 2). They are defined using the mod keyword because they 
implement a wrap-around arithmetic. 





mod Modulus 











where ' First is 0 and 'Last is Modulus - 1. 


Wrap-around arithmetic means that 'Last + 1 = 0 = 'First, and 'First - 1 = 'Last. Addi- 
tionally to the normal arithmetic operators, bitwise and, or and xor are defined for the 


type. 
The predefined package Interfaces (RM B.2 “{http://www.adaic.org/resources/add_ 


content/standards/Obrm/html/RM-B-2.html) ) presents unsigned integers based on 
powers of 2 





type Unsigned, n is mod 2**n; 











for which also shift and rotate operations are defined. The values of n depend on compiler 
and target architecture. 


You can use range to sub-range a modular type: 





type Byte is mod 256; 
subtype Half Byte is Byte range O .. 127; 











But beware: the Modulus of Halt Byte is still 256! Arithmetic with such a type is interesting 
to say the least. 


7.2 See also 
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See also 


7.2.1 Wikibook 


e Ada Programming! 
e Ada Programming/Types? 
e Ada Programming/Keywords/mod? 


7.2.2 Ada Reference Manual 


e 4.4 Expressions “{http://www.adaic.org/resources/add_content/standards/05rm/ 
htm1/RM-4-4.html) 

e 3.5.4 Integer Types ^[http://www.adaic.org/resources/add  content/standards/ 
O5rm/htm1/RM-3-5-4.htm1} 





1 http: //en.wikibooks. org/wiki/Ada/20Programming 
2 http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes 
3 http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fmod 
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8 Enumerations 


An enumeration type is defined as a list of possible values: 





type Primary Color is (Red, Green, Blue); 











Like for numeric types, where e.g. 1 is an integer literal, Red, Green and Blue are called the 
literals of this type. There are no other values assignable to objects of this type. 


8.1 Operators and attributes 


Operators and attributes 


Apart from equality ("="), the only operators on enumeration types are the ordering 
operators: "<", "<=", "=", "/=", ">=", ">", where the order relation is given implicitly by 
the sequence of literals: Each literal has a position, starting with O for the first, incremented 
by one for each successor. This position can be queried via the 'Pos attribute?; the inverse 


is 'Val, which returns the corresponding literal. In our example: 











Primary Color'Pos (Red) 
Primary Color'Val (0) 


Red 











There are two other important attributes: /mage and Value (don't confuse Val with Value). 
Image returns the string representation of the value (in capital letters), Value is the inverse: 





"RED" 
Red 


Primary Color'Image ( Red ) 
Primary Color'Value ("Red") 











These attributes are important for simple IO? (there are more elaborate IO facilities in Ada 
for enumeration types). Note that, since Ada is case-insensitive, the string given to 'Value 
can be in any case. 


8.2 Enumeration literals 





1 Chapter 37 on page 301 
2 Chapter 38 on page 305 
3 Chapter 18 on page 147 
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Enumeration literals 


Literals are overloadable, i.e. you can have another type with the same literals. 





type Traffic Light is (Red, Yellow, Green); 











Overload resolution within the context of use of a literal normally resolves which Red is 
meant. Only if you have an unresolvable overloading conflict, you can qualify with special 
syntax which Red is meant: 





Primary Color'(Red) 











Like many other declarative items, enumeration literals can be renamed. In fact, such a 
literal is a actually function“, so it has to be renamed as such: 





function Red return P.Primary Color renames P.Red; 











Here, Primary Color is assumed to be defined in package P, which is visible at the place of 
the renaming declaration. Renaming makes Red directly visible without necessity to resort 
the use-clause. 


Note that redeclaration as a function does not affect the staticness of the literal. 


8.2.1 Characters as enumeration literals 


Rather unique to Ada is the use of character literals as enumeration literals: 





type ABC is ('A', 'B', 'C'); 











This literal 'A' has nothing in common with the literal 'A' of the predefined type Character 
(or Wide_Character). 


Every type that has at least one character literal is a character type. For every character 
type, string literals and the concatenation operator '&'? are also implicitly defined. 





type My_Character is (No_Character, 'a', Literal, 'z'); 
type My_String is array (Positive range <>) of My_Character; 


S: My_String : 
T: My_String : 


"aa" € Literal & "za" € 'z'; 
(*a'. “ey Literal, ert, Zei, Leite 











In this example, S and T have the same value. 





4 Chapter 16.2 on page 127 
5 http: //en.wikibooks. org/wiki/Ada/20Programming/2FDelimiters/2F/26 
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Ada's Character type is defined that way. See Ada Programming/Libraries/Standard®. 


8.2.2 Booleans as enumeration literals 


Also Booleans are defined as enumeration types: 





type Boolean is (False, True); 











'There is special semantics implied with this declaration in that objects and expressions 
of this type can be used as conditions. Note that the literals False and True are not Ada 
keywords. 


Thus it is not sufficient to declare a type with these literals and then hope objects of this 
type can be used like so: 





type My Boolean is (False, True); 
Condition: My Boolean; 


if Condition then -- wrong, won't compile 











If you need your own Booleans (perhaps with special size requirements), you have to derive 
from the predefined Boolean: 





type My Boolean is new Boolean; 
Condition: My. Boolean; 


if Condition then -- OK 











8.3 Enumeration subtypes 


Enumeration subtypes 


You can use range to subtype an enumeration type: 





subtype Capital Letter is Character range 'A' .. 'Z'; 








type Day 0f Week is (Sunday, Monday, Tuesday, Wednesday, Thursday, 
Friday, Saturday); 


subtype Working Day is Day 0f Week range Monday .. Friday; 











8.4 See also 





6 Chapter 41 on page 333 
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See also 


8.4.1 Wikibook 


e Ada Programming’ 
e Ada Programming/Types® 
e Ada Programming/Libraries/Standard? 


8.4.2 Ada Reference Manual 


e 3.5.1] Enumeration Types  ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-3-5-1.html]) 


es:Programación en Ada/Tipos/Enumeraciones!? 





Foon 


o 


76 


http://en.wikibooks.org/wiki/Ada/20Programming 


http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes 
Chapter 41 on page 333 


http: //es.wikibooks.org/wiki/Programaci/F3n/20en20Ada/2FTipos/2FEnumeraciones 


9 Floating point types 


9.1 Description 


Description 


w:Floating point! 


To define a floating point type, you only have to say how many digits? are needed, i.e. you 
define the relative precision: 





digits Num Digits 











If you like, you can declare the minimum range needed as well: 





digits Num Digits range? Low .. High 











This facility is a great benefit of Ada over (most) other programming languages. In other 
languages, you just choose between "float" and "long float", and what most people do is: 


e choose float if they don't care about accuracy 
e otherwise, choose long float, because it is the best you can get 


In either case, you don't know what accuracy you get. 


In Ada, you specify the accuracy you need, and the compiler will choose an appropriate 
floating point type with at least the accuracy you asked for. This way, your requirement is 
guaranteed. Moreover, if the computer has more than two floating point types available, the 
compiler can make use of all of them. 


9.2 See also 
See also 


9.2.1 Wikibook 


e Ada Programming? 





1 http://en.wikipedia.org/wiki/Floating/20point 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fdigits 
4 http://en.wikibooks.org/wiki/Ada/20Programming 
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Ada Programming/Types? 

Ada Programming/Types/range® 
Ada Programming/Types/delta” 
Ada Programming/Types/mod® 

Ada Programming/Keywords/ digits? 


9.2.2 Ada Reference Manual 


e 3.5.7 Floating Point Types “{http://www.adaic.org/resources/add_content/ 
standards/05rm/htm1/RM-3-5-7 . html} 


es:Programación en Ada/Tipos/Coma flotante!? 
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10 Fixed point types 


10.1 Description 


Description 


w:Fixed-point arithmetic! A fixed point type defines a set of values that are evenly spaced 
with a given absolute precision. In contrast, floating point values are all spaced according to 
a relative precision. 


The absolute precision is given as the delta of the type. There are two kinds of fixed point 
types, ordinary and decimal. 


For Ordinary Fixed Point types, the delta gives a hint to the compiler how to choose the 
small value if it is not specified: It can be any integer power of two not greater than delta. 
You may specify the small via an attribute clause to be any value not greater than delta. (If 
the compiler cannot conform to this small value, it has to reject the declaration.) 


For Decimal Fixed Point types, the small is defined to be the delta, which in turn must 
be an integer power of ten. (Thus you cannot specify the small by an attribute clause.) 


For example, if you define a decimal fixed point type with a delta of 0.1, you will be able to 
accurately store the values 0.1, 1.0, 2.2, 5.7, etc. You will not be able to accurately store 
the value 0.01. Instead, the value will be rounded down to 0.0. 


If the compiler accepts your fixed point type definition, it guarantees that values represented 
by that type will have at least the degree of accuracy specified (or better). If the compiler 
cannot support the type definition (e.g. due to limited hardware) then a compile-time error 
will result. 


10.2 Ordinary Fixed Point 
Ordinary Fixed Point 


For an ordinary fixed point, you just define the delta and a range: 





delta Delta range Low .. High 











'The delta can be any real value — for example you may define a circle with one arcsecond 
resolution with: 





1 http://en.wikipedia.org/wiki/Fixed-point/20arithmetic 
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delta 1 / (60 * 60) range 0.0 .. 360.0 











[There is one rather strange rule about fixed point types: Because of the way they are 
internally represented, the range might only go up to 'Last - Delta. This is a bit like a 
circle — the 0? and 360? mark is also the same.] 


It should be noted that in the example above the smallest possible value used is not au = BH 


'The compiler will choose a smaller value which, by default, is an integer power of 2 not 
greater than the delta. In our example this could be 2-1? = .1.. In most cases this should 


4096 * 
render better performance but sacrifices precision for it. 


If this is not what you wish and precision is indeed more important, you can choose your 
own small value via the attribute clause 'Small. 





type Angle is delta Pi/2.0**31 range -Pi .. Pi; 
for Angle'Small use Pi/2.0**31; 











As internal representation, you will get a 32 bit signed integer type. 


10.3 Decimal Fixed Point 


Decimal Fixed Point 


You define a decimal fixed point by defining the delta and the number of digits needed: 





delta Delta digits Num Digits 











Delta must be a positive or negative integer power of 10 — otherwise the declaration is illegal. 





delta 10.0**(+2) digits 12 
delta 10.0**(-2) digits 12 











If you like, you can also define the range needed: 





delta Delta Value digits Num Digits range Low .. High 











10.4 Differences between Ordinary and Decimal Fixed Point 
Types 


Differences between Ordinary and Decimal Fixed Point Types 


There is an alternative way of declaring a "decimal" fixed point: You declare an ordinary 
fixed point and use an integer power of 10 as 'Small. The following two declarations are 
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equivalent with respect to the internal representation: 





-- decimal fixed point 


type Duration is delta 10.0**(-9) digits 9; 











-- ordinary fixed point 


type Duration is delta 10.0**(-9) range -1.0 .. 1.0; 
for Duration'Small use 10.0**(-9); 








You might wonder what the difference then is between these two declarations. The answer 


is: 


None with respect to precision, addition, subtraction, multiplication with integer values. 


The following is an incomplete list of differences between ordinary and decimal fixed point 
types. 


Decimal fixed point types are intended to reflect typical COBOL declarations with a 
given number of digits. 


Truncation is required for decimal, not for ordinary, fixed point in multiplication and di- 
vision (RM 4.5.5 (21) ^(http://www.adaic.org/resources/add content/standards/ 
951rm/ARM HTML/RM-4-5-5.html) ) and type conversions. Operations on decimal fixed 
point are fully specified, which is not true for ordinary fixed point. 


The following attributes are only defined for decimal fixed point: T'Digits (RM 
3.5.10 (10) “(http://www.adaic.org/resources/add_content/standards/951rm/ 
ARM HTML/RM-3-5-10.html) ) corresponds to the number of decimal digits that 
are representable; T'Scale (RM 3.5.10 (11) ^[http://www.adaic.org/resources/ 
add content/standards/951rm/ARM HTML/RM-3-5-10.html) , taken from COBOL) 
indicates the position of the point relative to the rightmost significant dig- 
its; T'Round (RM 3.5.10 (12) ^[http://www.adaic.org/resources/add content/ 
standards/951rm/ARM HTML/RM-3-5-10.html) ) can be used to specify rounding on 
conversion. 


Package Decimal (RM F.2 “{http://www.adaic.org/resources/add_content/ 
standards/951rm/ARM HTML/RM-F-2.html) ), which of course applies only to decimal 
fixed point, defines the decimal Divide generic procedure. If annex F is supported (GNAT 
does), at least 18 digits must be supported (there is no such rule for fixed point). 


Decimal IO (RM A.10.1 (73) ^(http://www.adaic.org/resources/add content/ 
standards/951rm/ARM HTML/RM-A-10-1.html) ) has semantics different from Fixed - 
IO (RM A.10.1 (68) ^(http://www.adaic.org/resources/add content/standards/ 
951rm/ARM HTML/RM-A-10-1.html) ). 


Static expressions must be a multiple of the Small for decimal fixed point. 


Conclusion: For normal numeric use, an ordinary fixed point (probably with 'Small 
defined) should be defined. Only if you are interested in COBOL like use, i.e. well defined 
deterministic decimal semantics (especially for financial computations, but that might apply 
to cases other than money) should you take decimal fixed point. 
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10.5 See also 


See also 


10.5.1 Wikibook 


Ada Programming? 


Ada Programming/Types® 

Ada Programming/Types/range* 

Ada Programming/Types/ digits? 

Ada Programming/Types/mod* 

Ada Programming/Keywords/delta” 
Ada Programming/ Attributes/'Small? 


10.5.2 Ada 95 Reference Manual 


3.5.9 Fixed Point Types  ^[http://www.adaic.org/resources/add content/ 
standards/951rm/ARM HTML/RM-3-5-9.html) 


10.5.3 Ada 2005 Reference Manual 


3.5.9 Fixed Point Types  ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-3-5-9.html]) 


es:Programación en Ada/Tipos/ Coma fija? 
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11 Arrays 


An array! is a collection of elements which can be accessed by one or more index values. In 
Ada any definite type is allowed as element and any discrete type, i.e. Range?, Modular? or 
Enumeration’, can be used as an index. 


11.1 Declaring arrays 
Declaring arrays 


Ada's arrays are quite powerful and so there are quite a few syntax variations, which are 
presented below. 


11.1.1 Basic syntax 


The basic form of an Ada array is: 





array (Index Range) of Element Type 











where Index Range is a range of values within a discrete index type, and Element "Type is 
a definite subtype. The array consists of one element of "Element_ Type" for each possible 
value in the given range. If you for example want to count how often a specific letter 
appears inside a text, you could use: 





type Character Counter is array (Character) of Natural; 











As a general advice, do not use Integer as the index range, since most of the time negative 
indices do not make sense. It is also a good style when using numeric indices, to define them 
starting in 1 instead of 0, since it is more intuitive for humans and avoids off-by-one error?s. 





http://en.wikipedia.org/wiki/array 

Chapter 6 on page 69 

Chapter 7 on page 71 

Chapter 8 on page 73 
http://en.wikipedia.org/wiki/off-by-oneA20error 
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11.1.2 With known subrange 


Often you don't need an array of all possible values of the index type. In this case you can 
subtype your index type to the actually needed range. 





subtype Index Sub Type is Index Type range First .. Last 


array (Index Sub Type) of Element Type 











Since this may involve a lot of typing and you may also run out of useful names for new 
subtypes®, the array declaration allows for a shortcut: 





arra ndex Type range First .. Last) o ement Type 
y (Index Typ ge Fi Last) of El Typ 











Since First and Last are expressions of Index Type, a simpler form of the above is: 





array (First .. Last) of Element Type 











Note that if First and Last are numeric literals, this implies the index type Integer. 


If in the example above the character counter should only count upper case characters and 
discard all other characters, you can use the following array type: 





type Character Counter is array (Character range 'A' .. 'Z') of Natural; 











11.1.3 With unknown subrange 


Sometimes the range actually needed is not known until runtime or you need ob- 
jects of different lengths. In some languages you would resort to pointers to element 
types. Not with Ada. Here we have the box '<>', which allows us to declare indefinite arrays: 





array (Index Type range <>) of Element Type; 











When you declare objects of such a type, the bounds must of course be given and the object 
is constrained to them. 


The predefined type String’ is such a type. It is defined as 





type String is array (Positive range <>) of Character; 














6 http://en.wikibooks.org/wiki/ada/20Programming/2FSubtypes 
7 Chapter 15 on page 119 


84 





You define objects of such an unconstrained type in several ways (the extrapolation to other 
arrays than String should be obvious): 





Text : String (10 .. 20); 
Input: String :- Read from some file; 











(These declarations additionally define anonymous subtypes of String.) In the first example, 
the range of indices is explicitly given. In the second example, the range is implicitly defined 
from the initial expression, which here could be via a function reading data from some file. 
Both objects are constrained to their ranges, i.e. they cannot grow nor shrink. 


11.1.4 With aliased elements 


If you come from C9/C++?, you are probably used to the fact that every element of an 
array has an address. The C!°/C++" standards actually demand that. 


In Ada, this is not true. Consider the following array: 





type Day. 0f Month is range 1 .. 31; 
type Day Has Appointment is array (Day Dr Month) of Boolean; 
pragma (Day Has Appointment); 











Since we have packed the array, the compiler will use as little storage as possible. And in 
most cases this will mean that 8 boolean values will fit into one byte. 


So Ada knows about arrays where more than one element shares one address. So what 
if you need to address each single element. Just not using pragma!? Packt’ is not 
enough. If the CPU“ has very fast bit access, the compiler might pack the array without 
being told. You need to tell the compiler that you need to address each element via an access. 





type Day. 0f Month is range 1 .. 31; 
type Day Has Appointment is array (Day Dr Month) of aliased Boolean; 











11.1.5 Arrays with more than one dimension 


Arrays can have more than one index. Consider the following 2-dimensional array: 





8 http://en.wikibooks.org/wiki/Programming/3AC 

9 http://en.wikibooks.org/wiki/Programming/3AC plus plus 

10  http://en.wikibooks.org/wiki/Programming/3AC 

11  http://en.wikibooks.org/wiki/ProgrammingÁ3AC plus plus 

12  Rhttp://en.wikibooks.org/wiki/AdaA20ProgrammingA2FKeywords/2Fpragma 
13 http://en.wikibooks. org/wiki/Ada/20Programming/2FPragmas/2FPack 

14  http://en.wikipedia.org/wiki/CPU 
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type Character Display is 
array ( Positive range <> , Positive range <> ) of Character; 











This type permits declaring rectangular arrays of characters. Example: 





Magic, Square: constant Character Display :- 
C C H EN " 1 A' į t TY 3 U D' , H R' ) d 
C f A' y UH R' ; H Ei 5 t P' A 1 Di ) 5 
C ud TA d ' E' ; H N' > ' E' S $ T! ) d 
C ? Di 5 4 P' $ f E' " $ R' s H A' ) r 
C f; R' ' Di y T! $ A' H EN ) ) . 











Or, stating some index values explicitly, 





Magic_Square: constant Character Display( 1 .. b. du 5) :- 
C 1 => C 1 S' 3 H A' d D T' P D Di N i: R' ) d 
2 => C 1 A' 1 t R' R t E' 3 H P' d ' Di ) " 
3 => C Li T* š t E' R f: N' 5 1 E' d ' T ) » 
4 => C D Di ` ' P' S 1 Ei > 1 R' > H A' ) à 
5 => C D R' 5 UH Di 3 $ T S ' A' 7 H EN ) ) ; 











'The index values of the second dimension, those indexing the characters in each row, are 
inl.. 5 here. By choosing a different second range, we could change these to be in 11.. 15: 





Magic Square: constant Character Display( 1 .. 5, di 15) := 
C 1 => C H EN 4 A' 1 T' D Di ' RI ) 











By adding more dimensions to an array type, we could have squares, cubes (or « bricks »), 
etc., of homogenous data items. 


Finally, an array of characters is a string (see Ada Programming/Strings!*). Therefore, 
Magic Square may simply be declared like this: 





Magic, Square: constant Character Display :- 
( "SATOR", 
"AREPO", 
"TENET", 
"OPERA", 
"ROTAS") ; 











11.2 Using arrays 





15 Chapter 15 on page 119 
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11.2.1 Assignment 


When accessing elements, the index is specified in parentheses. It is also possible to access 
slices in this way: 





Vector A (1 .. 3) := Vector B (3 .. 5); 











Note that the index range slides in this example: After the assignment, Vector A (1) — 
Vector B (3) and similarly for the other indices. 


Also note that the ranges overlap, nevertheless Vector A (3) /= Vector B (3); a compiler 
delivering such a result would be severely broken. 


11.2.2 Concatenate 


The operator "&" can be used to concatenate arrays: 





Name := First Name € ' ' & Last Name; 











In both cases, if the resulting array does not fit in the destination array, Constraint Error 
is raised. 


If you try to access an existing element by indexing outside the array bounds, Constraint - 
Error is raised (unless checks are suppressed). 


11.2.3 Array Attributes 


There are four Attributes which are important for arrays: 'First, ' Last, ' Length and ' Range. 
Lets look at them with an example. Say we have the following three strings: 





"Hello World!"; 
Hello World (7 .. 11); 


"n". 
, 


Hello World : constant String 
World : constant String 
Empty String : constant String 











'Then the four attributes will have the following values: 














Array ! First ' Last ' Length, ' Range 
Hello World 1 12 12 TAL? 
World 7 11 5 7. 11 
Empty_ String 1 0 0 1.0 























The example was chosen to show a few common beginner's mistakes: 


1. The assumption that strings begin with the index value 1 is wrong. 
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2. The assumption (which follows from the first one) that X'Length — X'Last is wrong. 
3. And last the assumption that X'Last >= X'First; this is not true for empty strings. 


The attribute ' Range is a little special as it does not return a discrete value but an abstract 
description of the array. One might wonder what it is good for. The most common use is in 
the for loop on arrays! but ' Range can also be used in declaring a name for the index subtype: 





subtype Hello World Index is Integer range Hello World'Range; 











'The Range attribute can be convenient when programming index checks: 





if K in World' Range then 
return World( K) ; 
else 
return Substitute; 
end if; 











11.2.4 Empty or Null Arrays 


As you have seen in the section above, Ada allows for empty arrays. And — of course — 
you can have empty arrays of all sorts, not just String: 





type Some Array is array (Positive range <>) of Boolean; 


Empty Some Array : constant Some Array (1 .. 0) :- (others => False); 











Note: If you give an initial expression to an empty array (which is a must for a constant), 
the expression in the aggregate will of course not be evaluated since there are no elements 
actually stored. 


11.3 See also 


See also 


11.3.1 Wikibook 


e Ada Programming!” 

e Ada Programming/Types!® 
e Data Structures? 

e Data Structures/ Arrays? 





16 Chapter 4 on page 37 

17  http://en.wikibooks.org/wiki/Ada/20Programming 

18 | http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes 
19 http://en.wikibooks. org/wiki/Data/20Structures 

20  http://en.wikibooks.org/wiki/Data/20Structures/2FArrays 
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11.3.2 Ada 95 Reference Manual 


e 3.6 Array Types “{http://www.adaic.org/resources/add_content/standards/ 
951rm/ARM HTML/RM-3-6.html) 


11.3.3 Ada 2005 Reference Manual 


e 3.6 Array Types “{http://www.adaic.org/resources/add_content/standards/ 
Obrm/html/RM-3-6.html) 


11.3.4 Ada Quality and Style Guide 


e 10.5.7 Packed Boolean Array Shifts “{http://www.adaic.org/resources/add_ 
content/docs/95style/html/sec_10/10-5-7.html+ 


es:Programación en Ada/Tipos/ Arrays?! 





21  http://es.wikibooks.org/wiki/Programaci/F3n/20en/20Ada/2FTipos/2FArrays 


89 


12 Records 


A record is a composite type! that groups one or more fields. A field can be of any type, 
even a record. 


12.1 Basic record 


Basic record 





type Basic Record is 
record 
A : Integer; 
end record; 











12.2 Null record 
Null record 


The null record is when a type without data is needed. There are two ways to declare a null 
record: 





type Null, Record is 
record 
null; 
end record; 








type Null Record is null record; 











For the compiler they are the same. However, programmers often use the first variant if the 
type is not finished yet to show that they are planning to expand the type later, or they 
usually use the second if the (tagged) record is a base class in object oriented programming. 


12.3 Record Values 
Record Values 


Values of a record type can be specified using a record aggregate, giving a list of named 
components thus 





i http://en.wikibooks.org/wiki/ada/20Programming/2FTypes/23List/200f/20types 
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A Basic Record S Basic Record := Basic Record' ( A => 
42) ; 

Another Basic Record : Basic, Record := (A25 42) ; 

Nix : constant Null_Record := ( null record) ; 











Given a somewhat larger record type, 





type Car is record 


Identity t Long Long Integer; 

Number Wheels : Positive range 1 .. 10; 

Paint : Color; 

Horse Power kW : Float range 0. 0... 2.000. 0; 
Consumption f Float range 0. 0... 100. 0; 


end record; 











a value may be specified using positional notation, that is, specifying a value for each record 
component in declaration order 





BMW: Car := ( 2007 752 83992434, 5, Blue, 190. 0, 10. 1); 











However, naming the components of a Car aggregate offers a number of advantages. 


1. Easy identification of which value is used for which component. (After all, named 
components are the raison d'étre of records.) 

2. Reordering the components is allowed—you only have to remember the component 
names, not their position. 

3. Improved compiler diagnostic messages. 


Reordering components is possible because component names will inform the compiler 
(and the human reader!) of the intended value associations. Improved compiler messages 
are also in consequence of this additional information passed to the compiler. While 
an omitted component will always be reported due to Ada's coverage rules?, messages 
can be much more specific when there are named associations. Considering the Car 
type from above, suppose a programmer by mistake specifies only one of the two 
floating point values for BMW in positional notation. The compiler, in search of another 
component value, will then not be able to decide whether the specified value is intended 
for Horse Power kW or for Consumption. If the programmer instead uses named asso- 
ciation, say Horse. Power kW => 190. 0, it will be clear which other component is missing. 





BMW : Car := 
( Identity -» 2007 752 83992434, 
Number Wheels => 5, 
Horse Power kW => 190. 0, 
Consumption -» 10. 1, 
Paint -» Blue) ; 











In order to access a component of a record instance, use the dot delimiter (. ), as in BMW. 
Number Wheels. 





2 http://www.adacore.com/2007/05/14/gem-1/ 


92 





12.4 Discriminated record 


Discriminated record 





type Discriminated Record (Size : Natural) is 
record 
A : String (1 .. Size); 
end record; 











12.5 Variant record 


Variant record 


The variant record is a special type of discriminated record where the presence of some 
components depend on the value of the discriminant. 





type Traffic Light is (Red, Yellow, Green); 


type Variant Record (Option : Traffic Light) is 
record 
--common components 


case Üption is 
when Red => 
--components for red 
when Yellow => 
--components for yellow 
when Green => 
--components for green 
end case; 
end record; 











12.5.1 Mutable and immutable variant records 


You can declare variant record types such that its discriminant, and thus its variant structure, 
can be changed during the lifetime of the variable. Such a record is said to be mutable. 
When "mutating" a record, you must assign all components of the variant structure which 
you are mutating at once, replacing the record with a complete variant structure. Although 
a variant record declaration may allow objects of its type to be mutable, there are certain 
restrictions on whether the objects will be mutable. Reasons restricting an object from being 
mutable include: 


e the object is declared with a discriminant (see Immutable_Traffic_Light below) 
e the object is aliased (either by use of aliased in the object declaration, or by allocation 
on the heap using new) 





type Traffic Light is (Red, Yellow, Green); 


type Mutable Variant Record (Option : Traffic Light :- Red) is --the discriminant must 
have a default value 
record 
--common components 
Location : Natural; 
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case Option is 
when Red => 
--components for red 
Flashing : Boolean := True; 
when Yellow => 
--components for yellow 
Timeout : Duration := 0.0; 
when Green => 
--components for green 
Whatever : Positive := 1; 
end case; 
end record; 


Mutable_Traffic_Light : Mutable_Variant_Record; 
--not declaring a discriminant makes this record mutable 


--it has the default discriminant/variant 
--structure and values 


Immutable_Traffic_Light : Mutable_Variant_Record (Option => Yellow); 
--this record is immutable, the discriminant cannot be changed 


--even though the type declaration allows for mutable objects 
--uith different discriminant values 


Mutable_Traffic_Light := (Option => Yellow, 
--mutation requires assignment of all components 
Location => 54, 
--for the given variant structure 
Timeout => 2.3); 


--restrictions on objects, causing them to be immutable 
type Traffic_Light_Access is access Mutable_Variant_Record; 


Any_Traffic_Light : Traffic_Light_Access := 
new Mutable_Variant_Record; 
Aliased_Traffic_Light : aliased Mutable_Variant_Record; 











Conversely, you can declare record types so that the discriminant along with the structure 
of the variant record may not be changed. To make a record type declaration immutable, 
the discriminant must not have a default value. 





type Traffic_Light is (Red, Yellow, Green); 


type Immutable Variant Record (Option : Traffic Light) is --no default value makes the record 
type immutable 


record 
--common components 
Location : Natural := 0; 


case Option is 
when Red => 
--components for red 
Flashing : Boolean := True; 
when Yellow => 
--components for yellow 
Timeout : Duration; 
when Green => 
--components for green 
Whatever : Positive := 1; 
end case; 
end record; 
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Default Traffic, Light : Immutable Variant Record; 


--ILLEGAL! 
Immutable, Traffic Light : Immutable, Variant, Record (Option => 
Yellow); --this record is immutable, since the type declaration is immutable 











12.6 Union 


Union 


This language feature is only available in Ada 2005 





type Traffic_Light is (Red, Yellow, Green); 


type Union (Option : Traffic_Light := Traffic_Light'First) is 
record 
--common components 


case Option is 
when Red => 
--components for red 
when Yellow => 
--components for yellow 
when Green => 
--components for green 
end case; 
end record; 


pragma (Union); 
pragma (C, Union); --optional 











The difference to a variant record is such that Option is not actually stored inside the record 
and never checked for correctness - it's just a dummy. 


This kind of record is usually used for interfacing with C but can be used for other purposes 
as well (then without pragma (C, Union);). 


12.7 Tagged record 
Tagged record 


'The tagged record is one part of what in other languages is called a class. It is the basic 


foundation of object orientated programming in Ada?. The other two parts a class in Ada 


needs is a package* and primitive operations?. 





3 Chapter 22 on page 187 
4 Chapter 22.4.2 on page 217 
5 Chapter 22.1.2 on page 188 
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type Person is tagged 
record 
Name : String (1 .. 10); 
Gender : Gender Type; 
end record; 








type Programmer is new Person with 
record 
Skilled In : Language List; 
end record; 











Ada 2005 only: 





type Programmer is new Person 
and Printable 
with 
record 
Skilled In : Language List; 
end record; 











12.8 Abstract tagged record 
Abstract tagged record 


An abstract type has at least an abstract primitive operation, i.e. one of its operations is 
not defined and then its derivative types has to provide an implementation. 


12.9 With aliased elements 


With aliased elements 


If you come from C/C++", you are probably used to the fact that every element of a 
record - which is not part of a bitset - has an address. In Ada, this is not true because 
records, just like arrays, can be packed. And just like arrays you can use aliased to ensure 
that an element can be accessed via an access type. 





type Basic, Record is 
record 
A : aliased Integer; 
end record ; 











Please note: each element needs its own aliased. 





6 http://en.wikibooks.org/wiki/C/20Programming 
7 http://en.wikibooks.org/wiki/C/2B/2B/20Programming 
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12.10 Limited Records 


Limited Records 


In addition to being variant, tagged, and abstract, records may also be limited (no assignment, 
and no predefined equality operation for Limited Types?). In object oriented programming, 
when tagged objects are handled by references instead of copying them, this blends well 
with making objects limited. 


12.11 See also 


See also 


12.11.1 Wikibook 


e Ada Programming? 

e Ada Programming/Types!? 

e Ada Programming/Keywords/record!! 
e Ada Programming/Keywords/null?? 

e Ada Programming/Keywords/abstrac 
e Ada Programming/Keywords/case!4 

e Ada Programming/Keywords/when!? 
e Ada Programming/Pragmas/Unchecked | Union! 


413 


12.11.2 Ada Reference Manual 
Ada 95 


e 3.8 Record Types “{http://www.adaic.org/resources/add_content/standards/ 
951rm/ARM HTML/RM-3-8.html) 


Ada 2005 


e 3.8 Record Types ^[http://www.adaic.org/resources/add  content/standards/ 
O5rm/html/RM-3-8.html) 

e Annex B.3.3 Pragma Unchecked Union “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-B-3-3.html) 





8 Chapter 14 on page 113 

9 http://en.wikibooks.org/wiki/Ada/20Programming 

10  http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes 

11  http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Frecord 

12 http://en.wikibooks. org/wiki/Ada/20Programming/2FKeywords/2Fnull 

13 http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fabstract 

14 http://en.wikibooks. org/wiki/Ada/20Programming/2FKeywords/,2Fcase 

15 http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fwhen 

16 http://en.wikibooks. org/wiki/Ada/20Programming/2FPragmas/2FUnchecked_Union 
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Ada Issues 


e AI95-00216-01 Unchecked unions — variant records with no run-time discriminant ^ (http: 
/ /www .ada-auth.org/cgi-bin/cvsweb.cgi/AIs/AI-00216.TXT) 
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13 Access types 


13.1 What's an Access Type? 
What's an Access Type? 


Access types in Ada are what other languages call pointers. They point to objects located 
at certain addresses. So normally one can think of access types as simple addresses (there 
are exceptions from this simplified view). Ada instead of saying points to talks of granting 
access to or designating an object. 


Objects of access types are implicitly initialized with null, i.e. they point to nothing when 
not explicitly initialized. 


Access types should be used rarely in Ada. In a lot of circumstances where pointers are 
used in other languages, there are other ways without pointers. If you need dynamic 
data structures, first check whether you can use the Ada Container library. Especially 
for indefinite record or array components, the Ada 2012 package Indefinite_Holders (RM 
A.18.18) can be used instead of pointers. 


There are four kinds of access types in Ada: Pool access types - General access types - 
Anonymous access types - Access to subprogram types. 


13.2 Pool access 


Pool access 


A pool access type handles accesses to objects which were created on some specific heap (or 
storage pool as it is called in Ada). A pointer of these types cannot point to a stack or 
library level (static) object or an object in a different storage pool. Therefore, conversion 
between pool access types is illegal. (Unchecked_Conversion may be used, but note that 
deallocation via an access object with a storage pool different from the one it was allocated 
with is erroneous.) 





type Person is record 
First_Name : String (1..30); 
Last_Name : String (1..20); 
end record; 


type Person_Access is access Person; 
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A size clause may be used to limit the corresponding (implementation defined anonymous) 
storage pool. A size clause of 0 disables calls of an allocator. 





for Person_Access'Size use 0; 











The storage pool is implementation defined if not specified. Ada supports user defined 
storage pools, so you can define the storage pool with 





for Person_Access'Storage_Pool use Pool_Name; 











Objects in a storage pool are created with the keyword new: 





Father: Person_Access := new Person; 

-- uninitialized 
Mother: Person_Access := new Person' (Mothers_First_Name, 
Mothers Last Name); -- initialized 











You access the object in the storage pool by appending .all. Mother.all is the complete 
record; components are denoted as usual with the dot notation: Mother.all.First Name. 
When accessing components, implicit dereferencing (i.e. omitting all) can serve as a 
convenient shorthand: 





Mother.all :- (Last Name => Father.Last Name, First Name => 
Mother.First Name); -- marriage 











Implicit dereferencing also applies to arrays: 





type Vector is array (1 .. 3) of Complex; 
type Vector Access is access Vector; 


VA: Vector Access :- new Vector; 

VB: array (1 .. 3) of Vector Access := (others => new Vector); 

C1: Complex := VA (3); -- a shorter equivalent for VA .all (3) 
C2: Complex :- VB (3)(1); -- a shorter equivalent for VB(3).all (1) 











Be careful to discriminate between deep and shallow copies when copying with access objects: 





Obji.all := 0bj2.all; -- Deep copy: Obji still refers to an object 
-- different from 0bj2, but it has the same 

content 

Ü0bji :- 0bj2; -- Shallow copy: Obji now refers to the same 


object as Obj2 
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13.2.1 Deleting objects from a storage pool 


Although the Ada standard mentions a garbage collector, which would automatically remove 
all unneeded objects that have been created on the heap (when no storage pool has been 
defined), only Ada compilers targeting a virtual machine like Java or .NET actually have 
garbage collectors. -Phere-is-alse-a-pragma-Controlled. which when-applied-te-sueh-an 


aeeess-type.—prevents-autematie-garbage-eolleetien-ef-ebjeets-ereated—with-it. Note that 
pragma Controlled will be dropped from Ada 2012, see RM 2012 13.11.3. 











Therefore in order to delete an object from the heap, you need the generic unit Ada. Apply 
utmost care to not create dangling pointers when deallocating objects as is shown in the 
example below. (And note that deallocating objects with a different access type than the one 
with which they were created is erroneous when the corresponding storage pools are different.) 





with Ada ; 
procedure Deallocation Sample is 


type Vector is array (Integer range <>) of Float; 
type Vector Ref is access Vector; 


procedure Free Vector is new Ada 
(Object => Vector, Name => Vector Ref); 


VA, VB: Vector Ref; 


V : Vector; 
begin 
VA := new Vector (1 .. 10); 
VB := VA; -- points to the same location as VA 


VA.all :- (others => 0.0); 
-- ... Do whatever you need to do with the vector 
Free_Vector (VA); -- The memory is deallocated and VA is now null 


V := VB.all; -- VB is not null, access to a dangling pointer is 
erroneous 


end Deallocation_Sample; 











It is exactly because of this problem with dangling pointers that the deallocation operation 
is called unchecked. It is the chore of the programmer to take care that this does not 
happen. 


Since Ada allows for user defined storage pools, you could also try a garbage collector 
library!. 





http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FAdaCLf, 
23Garbage_Collector 
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13.2.2 Constructing Reference Counting Pointers 


You can find some implementations of reference counting pointers, called Safe or Smart 
Pointers, on the net. Using such a type prevents caring about deallocation, since this will 
automatically be done when there are no more pointers to an object. But be careful - most of 
those implementations do not prevent deliberate deallocation, thus undermining the alledged 
safety attained with their use. 


A nice tutorial how to construct such a type can be found in a series of Gems on the AdaCore 
web site. 


Gem #97: Reference Counting in Ada — Part 1? This little gem constructs a simple reference 
counted pointer that does not prevent deallocation, i.e. is inherently unsafe. 


Gem #107: Preventing Deallocation for Reference-counted Types? This further gem describes 
how to arrive at a pointer type whose safety cannot be compromised (tasking issues aside). 
The cost of this improved safety is awkward syntax. 


Gem #123: Implicit Dereferencing in Ada 20124 This gem shows how to simplify the syntax 
with the new Ada 2012 generation. (Admittedly, this gem is a bit unrelated to reference 
counting since the new language feature can be applied to any kind of container.) 


13.3 General access 


General access 


General access types grant access to objects created on any storage pool, on the stack or 
at library level (static). They come in two versions, granting either read-write access or 
read-only access. Conversions between general access types are allowed, but subject to 
certain access level checks. 


Dereferencing is like for pool access types. Objects (other than pool objects) to be referenced 
have to be declared aliased, and references to them are created with the attribute 'Access. 
Access level restrictions prevent accesses to objects from outliving the accessed object, 
which would make the program erroneous. The attribute 'Unchecked Access omits the 
corresponding checks. 


13.3.1 Access to Variable 


When the keyword all is used in their definition, they grant read-write access. 





type Day Of Month is range 1 .. 31; 
type Day Of Month Access is access all Day Of Month; 














2 http: //www.adacore.com/2011/01/17/gem-97-reference-counting-in-ada-part-1/ 
3 http://www.adacore.com/2011/06/06/gem-107-preventing-deallocation-for-reference-counted-types/ 
4 http://www.adacore.com/adaanswers/gems/gem-123-implicit-dereferencing-in-ada-2012/ 
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13.3.2 Access to Constant 


General access types granting read-only access to the referenced object use the keyword 
constant in their definition. The referenced object may be a constant or a variable. 





type Day 0f Month is range 1 .. 31; 
type Day 0f Month Access is access constant Day Of Month; 











13.3.3 Some examples 





type General Pointer is access all Integer; 
type Constant Pointer is access constant Integer; 


I1: aliased constant Integer := 10; 
I2: aliased Integer; 


Pi: General Pointer  :- I1'Access; -- illegal 

P2: Constant Pointer :- I1'Access; -- OK, read only 

P3: General Pointer := 12'4ccess; -- OK, read and write 

P4: Constant Pointer := I2'A4ccess; -- OK, read only 

P5: constant General Pointer :- I2'Access; -- read and write only to I2 











13.4 Anonymous access 


Anonymous access 


Also Anonymous access types come in two versions like general access types, granting either 
read-write access or read-only access depending on whether the keyword constant appears. 


An anonymous access can be used as a parameter to a subprogram or as a discriminant. 
Here are some examples: 





procedure Modify (Some Day: access Day 0f Month); 
procedure Test (Some Day: access constant Day 0f Month);  -- Ada 2005 only 








task type Thread (Execute For Day: access Day 0f Month) is 


end Thread; 








type Day Data (Store For Day: access Day Dr Month) is record 
-- components 
end record; 











Before using an anonymous access, you should consider a named access type or, even better, 
consider if the "out" or "in out" modifier is not more appropriate. 


This language feature is only available in Ada 2005 


In Ada 2005, anonymous accesses are allowed in more circumstances: 
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type Object is record 
M : Integer; 
Next: access Object; 
end record; 


X: access Integer; 


function F return access constant Float; 











13.5 Implicit Dereference 


Implicit Dereference 


Ada 2012 will simplify accesses to objects via pointers with new syntax. 


Imagine you have a container holding some kind of elements. 





type Container is private; 
type Element Ptr is access Element; 


procedure Put (X: Element; Into: in out Container); 











Now how do you access elements stored in the container. Of course you can retrieve them by 





function Get (From: Container) return Element; 











This will however copy the element, which is unfortunate if the element is big. You get 
direct access with 





function Get (From: Container) return Element Ptr; 











Now pointers are dangerous since you might easily create dangling pointers like so: 





P: Element Ptr :- Get (Cont); 
P.all :- E; 
Free (P); 
. Get (Cont) -- this is now a dangling pointer 











Use of an accessor object instead of an access type can prevent inadvertant deallocation 
(this is still Ada 2005): 





type Accessor (Data: not null access Element) is limited private; -- read/write access 
function Get (From: Container) return Accessor; 











(For the null exclusion not null in the declaration of the discriminant, see below). Access 
via such an accessor is safe: The discriminant can only be used for dereferencing, it cannot 
be copied to an object of type Element Ptr because its accessibility level is deeper. In the 
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form above, the accessor provides read and write access. If the keyword constant is added, 
only read access is possible. 





type Accessor (Data: not null access constant Element) is limited private; -- only read access 











Access to the container object now looks like so: 





Get (Cont).all 
Get (Cont).Data.all : 


E; -- via access type: dangerous 
E; -- via accessor: safe, but ugly 











Here the new Ada 2012 feature of aspects comes along handy; for the case at hand, the 
aspect Implicit Dereference is the one we need: 





type Accessor (Data: not null access Element) is limited private 
with Implicit Dereference => Data; 











Now rather than writing the long and ugly function call of above, we can just omit the 
discriminant and its dereference like so: 





Get (Cont).Data.all : 
Get (Cont) 


E; -- Ada 2005 via accessor: safe, but ugly 
E; -- Ada 2012 implicit dereference 











Note that the call Get (Cont) is overloaded — it can denote the accessor object or the 
element, the compiler will select the correct interpretation depending on context. 


13.6 Null exclusions 


Null exclusions 


This language feature is only available in Ada 2005 


All access subtypes can be modified with not null, objects of such a subtype can then never 
have the value null, so initializations are compulsory. 





type Day. Dr Month Access is access Day. Of, Month; 
subtype Day 0f Month Not Null Access is not null Day 0f Month Access; 











The language also allows to declare the first subtype directly with a null exclusion: 





type Day_Of_Month_Access is not null access Day_Of_Month; 











However, in nearly all cases this is not a good idea because it renders objects of this type nearly 
unusable (for example, you are unable to free the allocated memory). Not null accesses 
are intended for access subtypes, object declarations, and subprogram parameters.http: 
//groups.google.com/group/comp. lang. ada/msg/13a41ced7af75192 
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13.7 Access to Subprogram 


Access to Subprogram 


An access to subprogram allows to call a subprogram? without knowing its name nor its 
declaration location. One of the uses of this kind of access is the well known callbacks. 





type Callback Procedure is access procedure (Id : Integer; 
Text: String); 


type Callback Function is access function (The Alarm: Alarm) return Natural; 











For getting an access to a subprogram, the attribute Access is applied to a subprogram 
name with the proper parameter and result profile. 





procedure Process Event (Id : Integer; 
Text: String); 


My Callback: Callback Procedure :- Process_Event' Access; 











13.7.1 Anonymous access to Subprogram 


This language feature is only available in Ada 2005 





procedure Test (Call Back: access procedure (Id: Integer; Text: String)); 











'There is now no limit on the number of keyword in a sequence: 





function F return access function return access function return access Some Type; 











This is a function that returns the access to a function that in turn returns an access to a 
function returning an access to some type. 


13.8 Access FAQ 
Access FAQ 


A few "Frequently Asked Question" and "Frequently Encountered Problems" (mostly from 
CÓ users) regarding Ada's access types. 





5 Chapter 16 on page 125 
6 http: //en.wikibooks. org/wiki/Programming/3AC 
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13.8.1 Access vs. access all 


An access all can do anything a simple access can do. So one might ask: "Why use simple 
access at all?" - And indeed some programmers never use simple access. 


Unchecked_ Deallocation is always dangerous if misused. It is just as easy to deallocate 
a pool-specific object twice, and just as dangerous as deallocating a stack object. The 
advantage of "access all" is that you may not need to use Unchecked_ Deallocation at all. 


Moral: if you have (or may have) a valid reason to store an 'Access or 'Unchecked Access 
into an access object, then use 'access all' and don't worry about it. If not, the mantra of 
"least privilege" suggests that the "all" should be left out (don't enable capabilities that you 
are not going to use). 


The following (perhaps disastrous) example will try to deallocate a stack object: 





declare 


type Day Of Month is range 1 .. 31; 
type Day Of Month Access is access all Day Of Month; 


procedure Free is new Ada.Unchecked Deallocation 
(Object => Day 0f Month 
Name => Day 0f Month Access); 


A : aliased Day 0f Month; 
Ptr: Day 0f Month Access :- A'Access; 


begin 
Free(Ptr); 


end; 











With a simple access you know at least that you won't try to deallocate a stack object. 


13.8.2 Access vs. System. Address 
An access can be something different from a mere memory address, it may be something 
more. For example, an 'access to String" often needs some way of storing the string size 


as well. If you need a simple address and are not concerned about strong typing, use the 
System. Address type. 


13.8.3 C compatible pointer 


The correct way to create a C compatible access is to use pragma : 





type Day 0f Month is range 1 .. 31; 
for Day. 0f Month'Size use Interfaces.C.int'Size; 


pragma (Convention => C, 
Entity => Day_Of_Month) ; 
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type Day Of Month Access is access Day 0f Month; 


pragma (Convention => C, 
Entity => Day_Of_Month_Access) ; 











pragma should be used on any type you want to use in C. The compiler will warn you if 
the type cannot be made C compatible. 


You may also consider the following - shorter - alternative when declaring Dax Of Month: 





type Day Of Month is new Interfaces.C.int range 1 .. 31; 











Before you use access types in C, you should consider using the normal "in", "out" and "in 
out" modifiers. pragma and pragma know how parameters are usually passed in C and 
will use a pointer to pass a parameter automatically where C would have used them as 
well. Of course the RM contains precise rules on when to use a pointer for "in", "out", and 
"in out" - see "B.3 Interfacing with C ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-B-3.html) '. 


13.8.4 Where is void*? 


While actually a problem for "interfacing with C", here are some possible solutions: 





procedure Test is 
subtype Pvoid is System.Address; 
-- the declaration in C looks like this: 


-- int C fun(int *) 
function C fun (pv: Pvoid) return Integer; 


pragma (Convention => C, 
Entity => C fun, -- any Ada name 
External Name => "C fun"); -- the C name 


Pointer: Pvoid; 


Input Parameter: aliased Integer :- 32; 
Return, Value : Integer; 

begin 
Pointer := Input Parameter' Address; 
Return Value := C fun (Pointer); 

end Test; 











Less portable but perhaps more usable (for 32 bit CPUs): 





type void is mod 2 ** 32; 
for void'Size use 32; 
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With GNAT you can get 32/64 bit portability by using: 





type void is mod System.Memory Size; 
for void'Size use System.Word Size; 











Closer to the true nature of void - pointing to an element of zero size is a pointer to a null 
record. This also has the advantage of having a representation for void and void*: 





type Void is null record; 
pragma (C, Void); 


type Void_Ptr is access all Void; 
pragma (C, Void_Ptr); 











13.9 Thin and Fat Access Types 
Thin and Fat Access Types 


The difference between an access type and an address will be detailed in the following. The 
term pointer is used because this is usual terminology. 


There is a predefined unit System. Address_to_Access_Conversion converting back and 
forth between access values and addresses. Use these conversions with care, as is explained 
below. 


13.9.1 Thin Pointers 


Thin pointers grant access to constrained subtypes. 





type Int is range -100 .. +500; 
type Acc_Int is access Int; 


type Arr is array (1 .. 80) of Character; 
type Acc_Arr is access Arr; 











Objects of subtypes like these have a static size, so a simple address suffices to access them. 
In the case of arrays, this is generally the address of the first element. 


For pointers of this kind, use of System.Address to Access Conversion is safe. 


13.9.2 Fat Pointers 





type Unc is array (Integer range <>) of Character; 
type Acc Unc is access Unc; 
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Objects of subtype Unc need a constraint, i.e. a start and a stop index, thus pointers to 
them need also to include those. So a simple address like the one of the first component is 
not sufficient. Note that A'Address is the same as A(A'First)' Address for any array object. 


For pointers of this kind, System.Address to Access, Conversion will probably not work 
satisfactorily. 


13.9.3 Example 





wohl om TI E 


CO: aliased Unc (-1 .. +1) : n ES 
i Cio. AA DS 


U0: aliased Unc 


"on 
ma 











Here, CO is a nominally constrained object, a pointer to it need not store the constraint, i.e. 
a thin pointer suffices. In contrast, UO is an object of a nominally unconstrained subtype, 
its actual subtype is constrained by the initial value. 





A: Acc_Unc = CO'Access; -- illegal 
B: Acc_Unc := UO'Access; -- OK 
C: Acc_Unc (CO'Range) := CO'Access; -- also illegal 











The relevant paragraphs in the RM are difficult to understand. In short words: 


An access type's target type is called the designated subtype, in our example Unc. RM 
3.10.2(27.1/2) requires that Unc_Acc's designated subtype statically match the nominal 
subtype of the object. 


Now the nominal subtype of CO is the constrained anonymous subtype Unc (-1 .. +1), the 
nominal subtype of UO is the unconstrained subtype Unc. In the illegal cases, the designated 
and nominal subtypes do not statically match. 


13.10 See also 


See also 


13.10.1 Wikibook 


e Ada Programming’ 
e Ada Programming/Types® 





7 http://en.wikibooks.org/wiki/Ada/20Programming 
8 http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes 
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13.10.2 Ada Reference Manual 
Ada 95 


e 4.8 Allocators ^[http://www.adaic.org/resources/add content/standards/951rm/ 
ARM HTML/RM-4-8.html) 

e 13.11 Storage Management  ^[http://www.adaic.org/resources/add content/ 
standards/951rm/ARM HTML/RM-13-11.html) 

e 13.11.2 Unchecked Storage Deallocation “{http://www.adaic.org/resources/add_ 
content/standards/951rm/ARM HTML/RM-13-11-2.html) 

e 3.7 Discriminants “{http://www.adaic.org/resources/add_content/standards/ 
951rm/ARM HTML/RM-3-7.html) 

e 3.10 Access Types ^[http://www.adaic.org/resources/add  content/standards/ 
951rm/ARM HTML/RM-3-10.html]) 

e 6.1 Subprogram Declarations ^(http://www.adaic.org/resources/add content/ 
standards/951rm/ARM_HTML/RM-6-1.htm1} 

e B.3 Interfacing with C ^[http://www.adaic.org/resources/add, content/standards/ 
951rm/ARM HTML/RM-B-3.html) 


Ada 2005 


e 4.8 Allocators ^[http://www.adaic.org/resources/add content/standards/Obrm/ 
htm1/RM-4-8.html) 

e 13.11 Storage Management  ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-13-11.html) 

e 13.11.2 Unchecked Storage Deallocation “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-13-11-2.html]) 

e 3.7 Discriminants ^[http://www.adaic.org/resources/add  content/standards/ 
O5brm/html/RM-3-7.html) 

e 3.10 Access Types ^[http://www.adaic.org/resources/add, content/standards/ 
O5rm/html/RM-3-10.html)+ 

e 6.1 Subprogram Declarations ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-6-1.html) 

e B3 Interfacing with C ^[http://www.adaic.org/resources/add, content/standards/ 
O5brm/html/RM-B-3.html) 


13.10.3 Ada Quality and Style Guide 


e 5.45 Dynamic Data  ^[http://www.adaic.org/resources/add content/docs/ 
95style/html/sec_5/5-4-5.htm1} 

e 5.9.2 Unchecked Deallocation ^(http://www.adaic.org/resources/add content/ 
docs/95style/html/sec_5/5-9-2.htm1} 
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14 Limited types 


14.1 Limited Types 
Limited Types 


When a type is declared limited this means that objects of the type cannot be assigned 
values of the same type. An Object b of limited type LT cannot be copied into an object a 
of same type LT. 


Additionally, there is no predefined equality operation for objects of a limited type. 


The desired effects of declaring a type limited include prevention of shallow copying. Also, 
the (unique) identity of an object is retained: once declared, a name of a variable of type LT 
will continue to refer to the same object. 


The following example will use a rather simplifying type Boat. 





type Boat is limited private; 


function Choose 
(Load : Sailors_Units; 
Speed : Sailors_Units) 
return Boat; 


procedure Set_Sail ( The_Boat : in out Boat) ; 











When we declare a variable to be of type Boat, its name will denote one boat from then on. 
Boats will not be copied into one another. 


The full view of a boat might be implemented as a record such as 





type Boat is limited record 


Max_Sail_Area : Sailors_Units; 
Max_Freight : Sailors Units; 
Sail Area : Sailors_Units; 
Freight : Sailors_Units; 


end record; 











The Choose function returns a Boat object depending on the parameters Load and Speed. 
If we now declare a variable of type Boat we will be better off Choosing an initial Boat (or 
else we might be dropping into uninitialized waters!). But when we do so, the initialization 
looks suspiciously like assignment which is not available with limited types: 
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procedure Travel ( People : Positive; Average Speed : Sailors Units) is 
Henrietta : Boat :- --assignment? 
Choose 


( Load => People * Average Weight * 1. 5, 
Speed => Average_Speed * 1. 5) ; 


begin 
Set_Sail ( Henrietta) ; 
end Travel; 











Fortunately, current Ada distinguishes initialization from copying. Objects of a limited type 
may be initialized by an initialization expression on the right of the delimiter := . 


(Just to prevent confusion: The Ada Reference Manual discriminates between assignment 
and assignment statement, where assignment is part of the assignment statement. An 
initialisation is of course an assignment which, for limited types, is done in place. An 
assignment statement involves copying, which is forbidden for limited types.) 


Related to this feature are aggregates of limited types! and “constructor functions” 


for limited types. Internally, the implementation of the Choose function will return 
a limited record. However, since the return type Boat is limited, there must be no 
copying anywhere. Will this work? A first attempt might be to declare a result variable 
local to Choose, manipulate result, and return it. The result object needs to be 
“transported” into the calling environment. But result is a variable local to Choose. 
When Choose returns, result will no longer be in scope. Therefore it looks like result 
must be copied but this is not permitted for limited types. There are two solutions 
provided by the language: extended return statements (see 6.5 Return Statements “{http: 
//www.adaic.org/resources/add content/standards/Obrm/html/RM-6-5.html) ) and 
aggregates of limited types. The following body of Choose returns an aggregate of limited 
type Boat, after finding the initial values for its components. 





function Choose 
(Load : Sailors Units; 
Speed : Sailors Units) 
return Boat 
is 
Capacity : constant Sailors Units :- Capacity Needed ( Load) ; 
begin 
return Boat' 
( Max Freight => Capacity, 
Max Sail Area => Sail Needed ( Capacity) , 
Freight => Load, 
Sail_Area => 0. 0); 
end Choose; 











The object that is returned is at the same time the object that is to have the returned value. 
The function therefore initializes Henrietta in place. 


In parallel to the predefined type Ada .Controlled, Ada provides the type Limited_- 
Controlled in the same package. It is a limited version of the former. 





1 http: //www.adacore.com/2007/05/14/gem-1/ 
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14.2 Initialising Limited Types 
Initialising Limited Types 


A few methods to initialise such types are presented. 





package Limited Private Samples is 


type Uninitialised is limited private; 
type Preinitialised is limited private; 


type Dynamic Initialisation is limited private; 
function Constructor (X: Integer)  --any kind of parameters 
return Dynamic Initialisation; 


type Needs Constructor (<>) is limited private; 
function Constructor (X: Integer)  --any kind of parameters 
return Needs, Constructor; 


private 


type Uninitialised is record 
I: Integer; 
end record; 


type Preinitialised is record 
I: Integer := 0; --can also be a function call 
end record; 


type Void is null record; 
function Constructor (Object: access Dynamic Initialisation) return Void; 


type Dynamic Initialisation is limited record 
Hook: Void :- Constructor (Dynamic Initialisation'Access); 
Bla : Integer;  --any needed components 

end record; 


type Needs Constructor is record 
I: Integer; 


end record; 


end Limited Private Samples; 








package body Limited Private Samples is 


function Constructor (Object: access Dynamic Initialisation) return Void is 
begin 

Object.Bla := 5;  --may be any value only known at run time 

return (null record); 
end Constructor; 


function Constructor (X: Integer) return Dynamic Initialisation is 
begin 
return (Hook => (null record), 
Bla -» 42); 
end Constructor; 


function Constructor (X: Integer) return Needs Constructor is 
begin 

return (I => 42); 
end Constructor; 


end Limited Private Samples; 
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with Limited Private Samples; 
use Limited Private Samples; 
procedure Try is 
U: Uninitialised; --very bad 
P: Preinitialised; --has initial value (good) 
D1: Dynamic_Initialisation; --has initial value (good) 
D2: Dynamic Initialisation := Constructor ( 0) ; --Ada 2005 initialisation 
D3: Dynamic Initialisation renames Constructor ( 0) ; --already Ada 95 
--I: Needs Constructor; -- Illegal without initialisation 
N: Needs Constructor := Constructor ( 0) ; --Ada 2005 initialisation 
begin 
null; 
end Try; 











Note that D3 is a constant, whereas all others are variables. 


Also note that the initial value that is defined for the component of Preinitialised is 
evaluated at the time of object creation, i.e. if an expression is used instead of the literal, 
the value can be run-time dependent. 





X, Y: Preinitialised; 











In this declaration of two objects, the initial expression will be evaluated twice and can 
deliver different values, because it is equivalent to the sequence?: 





X: Preinitialised; 
Y: Preinitialised; 











So X is initialised before Y. 


14.3 See also 


See also 


14.3.1 Ada 95 Reference Manual 


e 7.5 Limited Types “{http://www.adaic.org/resources/add_content/standards/ 
951rm/ARM HTML/RM-7-5.html) 





2 ISO/IEC 8652:2007. 3.3.1 Object Declarations (7). Ada 2005 Reference Manual. Any declaration 
[...] with more than one defining identifier is equivalent to a series of declarations each containing 
one defining identifier from the list, [...] in the same order as the list. “{http://www.adaic.org/ 
resources/add_content/standards/05rm/htm1/RM-3-3-1.htm1} 
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14.3.2 Ada 2005 Reference Manual 


e 7.5 Limited Types ^[http://www.adaic.org/resources/add, content/standards/ 
O5brm/html/RM-7-5.html) 


14.3.3 Ada Quality and Style Guide 


e 5.3.3. Private Types “{http://www.adaic.org/resources/add_content/docs/ 
95style/html/sec_5/5-3-3.htm1} 

e 8.3.3 Formal Private and Limited Private Types ^[http://www.adaic.org/resources/ 
add content/docs/95style/html/sec 8/8-3-3.html) 


14.4 References 


References 
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15 Strings 


Ada supports three different types of strings. Each string type is designed to solve a different 
problem. 


In addition, every string type is implemented for each available Characters type (Character, 
Wide Character, Wide Wide Character) giving a complement of nine combinations. 


15.1 Fixed-length string handling 
Fixed-length string handling 


Fixed-Length Strings are arrays! of Character, and consequently of a fixed length. Since 
a fixed length string is an indefinite subtype? the length does not need to be known at 
compile time — the length may well be calculated at run time. In the following example 
the length is calculated from command-line argument 1: 





X : String :- Ada.Command Line.Argument (1); 











However once the length has been calculated and the strings have been created the length 
stays constant. 'Iry the following program which shows a typical mistake: 





File: show commandline 1.adb 


with Ada ; 
with Ada ; 


procedure Show Commandline 1 is 


package T IO renames Ada ; 
package CL renames Ada ; 


X : String :- CL.Argument (1); 
begin 

T IO.Put ("Argument 1 = "); 

T IO.Put Line (X); 


X := CL.Argument (2); 


T IO.Put ("Argument 2 - "); 














1 Chapter 11 on page 83 
2 http://en.wikibooks.org/wiki/ada/20Programming/2FSubtypes/23indefinite/20subtype 
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T IO.Put Line (X); 
end Show Commandline 1; 











The program will only work when the Ist and 2nd parameter have the same length. This 
is even true when the 2nd parameter is shorter. There is neither an automatic padding of 
shorter strings nor an automatic truncation of longer strings. 


Having said that, the package Ada contains a set of procedures and functions for Fixed- 
Length String Handling which allows padding of shorter strings and truncation of longer 
strings. 


Try the following example to see how it works: 





File: show commandline, 2.adb 








with Ada ; 
with Ada ; 
with Ada ; 


procedure Show Commandline 2 is 


package T IO renames Ada ; 
package CL renames Ada ; 
package S renames Ada ; 
package SF renames Ada ; 


X : String := CL.Argument (1); 
begin 


T IO.Put ("Argument 1 = "); 
T IO.Put Line (X); 


SF.Move ( 
Source => CL.Argument (2), 
Target => X, 
Drop -» S.Right, 
Justify => S.Left, 
Pad => S.Space) ; 


T IO.Put ("Argument 2 = "); 
T IO.Put Line (X); 
end Show Commandline. 2; 











15.2 Bounded-length string handling 
Bounded-length string handling 


Bounded-Length Strings can be used when the maximum length of a string is known and/or 
restricted. This is often the case in database applications where only a limited number of 
characters can be stored. 
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Like Fixed-Length Strings the maximum length does not need to be known at compile time 
— it can also be calculated at runtime — as the example below shows: 





File: show commandline, 3.adb 


with Ada ; 
with Ada ; 
with Ada ; 


procedure Show Commandline, 3 is 


package T IO renames Ada.Text I0; 
package CL renames Ada.Command Line; 


function Max Length ( 
Value 1 : Integer; 
Value 2 : Integer) 
return 
Integer 
is 
Retval : Integer; 
begin 
if Value 1 » Value 2 then 
Retval :- Value 1; 
else 
Retval :- Value 2; 
end if; 
return Retval; 
end Max Length; 


pragma Inline (Max Length); 


package SB 
is new Ada.Strings.Bounded.Generic Bounded Length ( 
Max => Max Length ( 
Value, 1 => CL.Argument (1)'Length, 
Value, 2 => CL.Argument (2)'Length)); 


X : SB.Bounded String 
:= SB.To Bounded String (CL.Argument (1)); 


begin 
T IO.Put ("Argument 1 = "); 
T IO.Put Line (SB.To String (0); 


X := SB.To Bounded String (CL.Argument (2)); 
T IO.Put ("Argument 2 = "); 


T IO.Put Line (SB.To String (0); 
end Show Commandline, 3; 











You should know that Bounded-Length Strings have some distinct disadvantages. Most 
noticeable is that each Bounded-Length String is a different type which makes converting 
them rather cumbersome. Also a Bounded-Length String type always allocates memory for 
the maximum permitted string length for the type. The memory allocation for a Bounded- 
Length String is equal to the maximum number of string "characters" plus an implementation 
dependent number containing the string length (each character can require allocation of 
more than one byte per character, depending on the underlying character type of the string, 
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and the length number is 4 bytes long for the Windows GNAT Ada compiler v3.15p, for 
example). 


15.3 Unbounded-length string handling 
Unbounded-length string handling 


Last but not least there is the Unbounded-Length String. In fact: If you are not doing 
embedded or database programming this will be the string type you are going to use most 
often as it gives you the maximum amount of flexibility. 


As the name suggest the Unbounded-Length String can hold strings of almost any length — 
limited only to the value of Integer'Last or your available heap memory. This is because 
Unbounded String type is implemented using dynamic memory allocation behind the 
scenes, providing lower efficiency but maximum flexibility. 





File: show commandline  4.adb 








with Ada ; 
with Ada ; 
with Ada ; 


procedure Show Commandline 4 is 


package T IO renames Ada.Text IO; 
package CL renames Ada.Command Line; 
package SU renames Ada.Strings.Unbounded; 


X :  SU.Unbounded String 
:= SU.To Unbounded String (CL.Argument (1)); 


begin 
T IO.Put ("Argument 1 = "); 
T IO.Put Line (SU.To String (30); 


X := SU.To Unbounded String (CL.Argument (2)); 
T IO.Put ("Argument 2 = "); 


T IO.Put Line (SU.To String (0); 
end Show Commandline 4; 











As you can see the Unbounded-Length String example is also the shortest (discarding the 
first example, which is buggy) — this makes using Unbounded-Length Strings very appealing. 


15.4 See also 
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See also 


15.4.1 Wikibook 


e Ada Programming? 


15.4.2 Ada 95 Reference Manual 


e 2.6 String Literals ^[http://www.adaic.org/resources/add, content/standards/ 


951rm/ARM HTML/RM-2-6.html) 


e 3.6.3 String Types ^[http://www.adaic.org/resources/add  content/standards/ 


951rm/ARM HTML/RM-3-6-3.html) 


e A.43 Fixed-Length String Handling “{http://www.adaic.org/resources/add_ 


content/standards/951rm/ARM HTML/RM-A-4-3.html) 


e A.4.4 Bounded-Length String Handling ^(http://www.adaic.org/resources/add. 


content /standards/951rm/ARM HTML/RM-A-4-4.html) 


e A.4.5 Unbounded-Length String Handling “{http://www.adaic.org/resources/add_ 


content /standards/951rm/ARM HTML/RM-A-4-5.html) 


15.4.3 Ada 2005 Reference Manual 


e 2.6 String Literals ^[http://www.adaic.org/resources/add, content/standards/ 


Obrm/html/RM-2-6.html) 


e 3.6.3 String Types ^[http://www.adaic.org/resources/add, content/standards/ 


O5brm/html/RM-3-6-3.html) 


e A.43 Fixed-Length String Handling “{http://www.adaic.org/resources/add_ 


content/standards/Obrm/html/RM-A-4-3.html) 


e A.4.4 Bounded-Length String Handling “{http://www.adaic.org/resources/add_ 


content/standards/Obrm/html/RM-A-4-4.html) 


e A.4.5 Unbounded-Length String Handling ^(http://www.adaic.org/resources/add. 


content/standards/Obrm/html/RM-A-4-5.html) 





3 http://en.wikibooks.org/wiki/Ada/20Programming 
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16 Subprograms 


In Ada the subprograms are classified into two categories: procedures! and functions?. A 
procedures call is a statement and does not return any value, whereas a function returns a 
value and must therefore be a part of an expression. 


Subprogram parameters may have three modes. 
in 
The actual parameter value goes into the call and is not changed there. The formal 


parameter is a constant and allows only reading. This is the default when no mode is given. 
The actual parameter is an expression. 


in out 


The actual parameter goes into the call and may be redefined. The formal parameter is a 
variable and can be read and written. 


out 


'The actual parameter's value before the call is irrelevant, it will get a value in the call. The 
formal parameter can be read and written. (In Ada 83 out parameters were write-only.) 


A parameter of any mode may also be explicitly aliased. 
access 


The formal parameter is an access (a pointer) to some variable. (This is not a parameter 
mode from the reference manual point of view.) 


Note that parameter modes do not specify the parameter passing method. Their purpose is 
to document the data flow. 


The parameter passing method depends on the type of the parameter. A rule of thumb is 
that parameters fitting into a register are passed by copy, others are passed by reference. 
For certain types, there are special rules, for others the parameter passing mode is left to 
the compiler (which you can assume to do what is most sensible). Tagged types are always 
passed by reference. 


Explicitly aliased parameters and access parameters specify pass by reference. 


Unlike in the C class of programming languages, Ada subprogram calls cannot have empty 
parameters parentheses ( ) when there are no parameters. 





1 Chapter 16.1 on page 126 
2 Chapter 16.2 on page 127 
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16.1 Procedures 


Procedures 


A procedure call in Ada constitutes a statement by itself. 


For example: 





procedure A Test ( A, B: in Integer; C: out Integer) is 
begin 

C:- A+B; 
end A Test; 











When the procedure is called with the statement 





A Test (5 + P, 48, Q); 











the expressions 5 + P and 48 are evaluated (expressions are only allowed for in parameters), 
and then assigned to the formal parameters A and B, which behave like constants. Then, 
the value A + B is assigned to formal variable C, whose value will be assigned to the actual 
parameter Q when the procedure finishes. 


C, being an out parameter, is an uninitialized variable before the first assignment. (Therefore 
in Ada 83, there existed the restriction that out parameters are write-only. If you wanted to 
read the value written, you had to declare a local variable, do all calculations with it, and 
finally assign it to C before return. This was awkward and error prone so the restriction 
was removed in Ada 95.) 


Within a procedure, the return statement can be used without arguments to exit the 
procedure and return the control to the caller. 


For example, to solve an equation of the kind az? 4- bz 4- c — 0: 





with Ada ; 
use Ada ; 


procedure Quadratic_Equation 
CA B, OC: Float; --By default it is "in". 
Ri, R2 : out Float; 
Valid : out Boolean) 
is 
Z : Float; 
begin 
Z := Bet2 - 4.0 * A* C; 
if Z < 0.0 or A = 0.0 then 


Valid := False;  --Being out parameter, it should be modified at least once. 
R1 = 0.0; 
R2 = 0.0; 
else 
Valid := True; 
Ri = (-B + Sqrt (Z)) / (2.0 * A); 
R2 = (-B - Sqrt (2) / (2.0 * A); 
end if; 


end Quadratic_Equation; 
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The function SQRT calculates the square root of non-negative values. If the roots are real, 
they are given back in R1 and R2, but if they are complex or the equation degenerates (A 
— 0), the execution of the procedure finishes after assigning to the Valid variable the False 
value, so that it is controlled after the call to the procedure. Notice that the out parameters 
should be modified at least once, and that if a mode is not specified, it is implied in. 


16.2 Functions 


Functions 


A function is a subprogram that can be invoked as part of an expression. Until Ada 2005, 
functions can only take in (the default) or access parameters; the latter can be used as a 
work-around for the restriction that functions may not have out parameters. Ada 2012 has 
removed this restriction. 


Here is an example of a function body: 





function Minimum (A, B: Integer) return Integer is 
begin 
if A <= B then 
return A; 
else 
return B; 
end if; 
end Minimum; 











Or in Ada2012: 





function Minimum (A, B: Integer) return Integer is 
begin 

return (if A <= B then A else B); 
end Minimum; 











or even shorter as an expression function 





function Minimum (A, B: Integer) return Integer is (if A <= B then A else B); 











The formal parameters with mode in behave as local constants whose values are provided by 
the corresponding actual parameters. The statement return is used to indicate the value 
returned by the function call and to give back the control to the expression that called 
the function. The expression of the return statement may be of arbitrary complexity and 
must be of the same type declared in the specification. If an incompatible type is used, the 
compiler gives an error. If the restrictions of a subtype are not fulfilled, e.g. a range, it 
raises a Constraint Error exception. 


'The body of the function can contain several return statements and the execution of any 
of them will finish the function, returning control to the caller. If the flow of control within 
the function branches in several ways, it is necessary to make sure that each one of them is 
finished with a return statement. If at run time the end of a function is reached without 
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encountering a return statement, the exception Program Error is raised. Therefore, the 
body of a function must have at least one such return statement. 


Every call to a function produces a new copy of any object declared within it. When 
the function finalizes, its objects disappear. Therefore, it is possible to call the function 
recursively. For example, consider this implementation of the factorial function: 





function Factorial (N : Positive) return Positive is 
begin 
if N = 1 then 
return 1; 
else 
return (N * Factorial (N - 1)); 
end if; 
end Factorial; 











When evaluating the expression Factorial (4); the function will be called with parameter 
4 and within the function it will try to evaluate the expression Factorial (3), calling itself 
as a function, but in this case parameter N would be 3 (each call copies the parameters) 
and so on until N — 1 is evaluated which will finalize the recursion and then the expression 
will begin to be completed in the reverse order. 


A formal parameter of a function can be of any type, including vectors or records. Never- 
theless, it cannot be an anonymous type, that is, its type must be declared before, for example: 





type Float Vector is array (Positive range <>) of Float; 


function Add Components (V: Float Vector) return Float is 
Result : Float := 0.0; 
begin 
for I in V'Range loop 
Result := Result + V(I); 
end loop; 
return Result; 
end Add Components; 











In this example, the function can be used on a vector of arbitrary dimension. Therefore, 
there are no static bounds in the parameters passed to the functions. For example, it is 
possible to be used in the following way: 





V4 : Float Vector (1 .. 4) := (1.2, 3.4, 5.6, 7.8); 
Sum : Float; 


Sum :- Add Components (V4); 











In the same way, a function can also return a type whose bounds are not known a priori. 
For example: 





function Invert Components (V : Float Vector) return Float Vector is 

Result : Float Vector(V'Range); --Fiz the bounds of the vector to be returned. 
begin 

for I in V'Range loop 
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Result(I) := V (V'First + V'Last - I); 
end loop; 
return Result; 
end Invert Components; 











The variable Result has the same bounds as V, so the returned vector will always have the 
same dimension as the one passed as parameter. 


A value returned by a function can be used without assigning it to a variable, it can be 
referenced as an expression. For example, Invert Components (V4) (1), where the first 
element of the vector returned by the function would be obtained (in this case, the last 
element of V4, i.e. 7.8). 


16.3 Named parameters 


Named parameters 


In subprogram calls, named parameter notation (i.e. the name of the formal parameter 
followed of the symbol => and then the actual parameter) allows the rearrangement of the 
parameters in the call. For example: 





Quadratic_Equation (Valid => OK, A => 1.0, B => 2.0, C => 3.0, R1 => 
P, R2 => Q); 
F := Factorial (N => (3 + 1)); 











This is especially useful to make clear which parameter is which. 





Phi 
Phi 


Arctan (A, B); 
Arctan (Y => A, X => B); 











The first call (from Ada.Numerics.Elementary Functions) is not very clear. One might easily 
confuse the parameters. The second call makes the meaning clear without any ambiguity. 


Another use is for calls with numeric literals: 





Ada.Float Text IO.Put Line (X, 3, 2, 0); -- ? 
Ada.Float Text IO.Put Line (X, Fore => 3, Aft => 2, Exp => 0); -- 
OK 











16.4 Default parameters 


Default parameters 


On the other hand, formal parameters may have default values. They can, therefore, be 
omitted in the subprogram call. For example: 


129 


Subprograms 








procedure By Default Example (A, B: in Integer := 0); 











can be called in these ways: 





By Default Example (5, 7); -A=5, B=7 
By_Default_Example (5); --A=5, B=0 
By_Default_Example; -A=0, B=0 
By_Default_Example (B => 3); -A=0, B=3 
By Default Example (1, B => 2); --A=1, B- 2 


~ 











In the first statement, a "regular call" is used (with positional association); the second 
also uses positional association but omits the second parameter to use the default; in the 
third statement, all parameters are by default; the fourth statement uses named association 
to omit the first parameter; finally, the fifth statement uses mixed association, here the 
positional parameters have to precede the named ones. 


Note that the default expression is evaluated once for each formal parameter that has no 
actual parameter. Thus, if in the above example a function would be used as defaults for A 
and B, the function would be evaluated once in case 2 and 4; twice in case 3, so A and B 
could have different values; in the others cases, it would not be evaluated. 


16.5 Renaming 


Renaming 


Subprograms may be renamed. The parameter and result profile for a renaming-as- 
declaration must be mode conformant. 





procedure Solve 
(A, B, C: in Float; 
R1, R2 : out Float; 
Valid : out Boolean) renames Quadratic Equation; 











'This may be especially comfortable for tagged types. 





package Some Package is 
type Message Type is tagged null record; 
procedure Print (Message: in Message Type); 
end Some, Package; 








with Some, Package; 
procedure Main is 
Message: Some Package.Message Type; 





procedure Print renames Message.Print; --this has convention intrinsic, see RM 6.3.1(10.1/2) 
= : t-—Print-Aecess; --thus taking 'Access should be illegal; GNAT 
GPL 2012 allows this 
begin --All these calls are equivalent: 
Some Package.Print (Message); --traditional call without use clause 
Message.Print; --Ada 2005 method.object call - note: no use clause necessary 
Print; --Message.Print is a parameterless procedure and can be renamed 
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as such 
Method-Ref-all; --GNAT GPL 2012 allous illegal call via an access to the renamed 
procedure Print 


--This has been corrected in the current version (as of Nov 22, 
2012) 
end Main; 











But note that Message.Print'Access; is illegal, you have to use a renaming declaration 
as above. 


Since only mode conformance is required (and not full conformance as between specification 
and body), parameter names and default values may be changed with renamings: 





procedureP (X: inInteger 
procedureR (A: inInteger 


0); 
-1) renamesP; 











16.6 See also 


See also 


16.6.1 Wikibook 


e Ada Programming? 
e Ada Programming/Operators* 


16.6.2 Ada 95 Reference Manual 


e Section 6: Subprograms “{http://www.adaic.org/resources/add_content/ 
standards/Obrm/html/RM-6.html) 


e 4.4 Expressions ^(http://www.adaic.org/resources/add content/standards/Obrm/ 
htm1/RM-4-4.html) 


16.6.3 Ada 2005 Reference Manual 


e Section 6: Subprograms “{http://www.adaic.org/resources/add_content/ 
standards/Obrm/html/RM-6.html) 

e 4.4 Expressions “{http://www.adaic.org/resources/add_content/standards/05rm/ 
htm1/RM-4-4.htm1} 





3 http://en.wikibooks.org/wiki/Ada/20Programming 
4 Chapter 37 on page 301 
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16.6.4 Ada Quality and Style Guide 


e 4.1.3 Subprograms “{http://www.adaic.org/resources/add_content/docs/ 
95style/html/sec 4/4-1-3.htm1l) 


es:Programación en Ada/Subprogramas? 





5 http://es.wikibooks.org/wiki/ProgramaciAF3n/420en/20Ada/2FSubprogramas 
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17 Packages 


Ada encourages the division of code into separate modules called packages. Each package 
can contain any combination of items. 


Some of the benefits of using packages are: 


e package contents are placed in a separate namespace, preventing naming collisions, 

e implementation details of the package can be hidden from the programmer (information 
hiding), 

* object orientation requires defining a type and its primitive subprograms within a package, 
and 

e packages can be separately compiled. 


Some of the more common package usages are: 


e a group of related subprograms along with their shared data, with the data not visible 
outside the package, 

e one or more data types along with subprograms for manipulating those data types, and 

e a generic package that can be instantiated under varying conditions. 


The following is a quote from the current Ada Reference Manual 7. Packages. RM 
7(1) ^(http://www.adaic.org/resources/add content/standards/05rm/html/RM-7-. 
html) 


Packages are program units that allow the specification of groups of logically related 
entities. Typically, a package contains the declaration of a type (often a private type 
or private extension) along with the declaration of primitive subprograms of the type, 
which can be called from outside the package, while their inner workings remain hidden 
from outside users. 


17.1 Separate compilation 


Separate compilation 


It is very common for package declarations and package bodies to be coded into separate 
files and separately compiled. Doing so places the package at the library level where it will 
be accessible to all other code via the with statement—if a more restricted scope is desired, 
simply declare the package (and package body, if needed) within the appropriate scope. 
'The package body can itself be divided into multiple files by specifying that one or more 
subprogram implementations are separate. 
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One of the biggest advantages of Ada over most other programming languages is its well 
defined system of modularization and separate compilation. Even though Ada allows 
separate compilation, it maintains the strong type checking among the various compilations 
by enforcing rules of compilation order and compatibility checking. Ada uses separate 
compilation (like Modula-2!, Java? and C#3), and not independent compilation (as C*/C4-4-? 
does), in which the various parts are compiled with no knowledge of the other compilation 
units with which they will be combined. 


A note to C/C++ users: Yes, you can use the preprocessor to emulate separate compilation 
— but it is only an emulation and the smallest mistake leads to very hard to find bugs. It 
is telling that all C/C++ successor languages including DÓ have turned away from the 
independent compilation and the use of the preprocessor. 


So it's good to know that Ada has had separate compilation ever since Ada-83 and is 
probably the most sophisticated implementation around. 


17.2 Parts of a package 
Parts of a package 


A package generally consists of two parts, the specification and the body. A package 
specification can be further divided in two logical parts, the visible part and the private 
part. Only the visible part of the specification is mandatory. The private part of the 
specification is optional, and a package specification might not have a package body—the 
package body only exists to complete any incomplete items in the specification. Subprogram 
declarations are the most common incomplete items. There must not be a package body if 
there is no incomplete declarations and there has to be a package body if there is incomplete 
declarations in the specification. 


'To understand the value of the three-way division, consider the case of a package that has 
already been released and is in use. A change to the visible part of the specification will 
require that the programmers of all using software verify that the change does not affect the 
using code. À change to the private part of the declaration will require that all using code be 
recompiled but no review is normally needed. Some changes to the private part can change 
the meaning of the client code however. An example is changing a private record type into 
a private access type. This change can be done with changes in the private part, but change 
the semantic meaning of assignment in the clients code. A change to the package body 
will only require that the file containing the package body be recompiled, because nothing 
outside of the package body can ever access anything within the package body (beyond the 
declarations in the specification part). 


A common usage of the three parts is to declare the existence of a record type and some 
subprograms that operate on that type in the visible part, define the actual structure of the 





http://en.wikipedia.org/wiki/Modula-2 
http://en.wikipedia.org/wiki/Java programming language 
http://en.wikipedia.org/wiki/C/20Sharp/20programming/A20language 
http://en.wikipedia.org/wiki/C/20programming/20language 
http://en.wikipedia.org/wiki/C/2B%2B 
http://en.wikipedia.org/wiki/D_programming_language 
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record type in the private part, and provide the code to implement the subprograms in the 
package body. 


17.2.1 The package specification — the visible part 


The visible part of a package specification describes all the subprogram specifications, 
variables, types, constants etc. that are visible to anyone who wishes to use the package. 





package Public Only. Package is 
type Range 10 is range 1 .. 10; 


end Public Only Package; 











17.2.2 The private part 


The private part of a package serves two purposes: 


e To complete the deferred definition of private types and constants. 
e To export entities only visible to the children of the package 





package Package With Private is 
type Private Type is private; 
private 
type Private Type is array (1 .. 10) of Integer; 


end Package With Private; 











17.2.3 The package body 


The package body defines the implementation of the package. All the subprograms defined 
in the specification have to be implemented in the body. New subprograms, types and 
objects can be defined in the body that are not visible to the users of the package. 





package Package With Body is 
type Basic Record is private; 


procedure Set A (This : in out Basic Record; 
An A : in Integer); 


function Get A (This : Basic Record) return Integer; 
private 
type Basic Record is 


record 
A : Integer; 
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end record ; 
pragma ` (Get A); 
pragma (Get A); 
pragma (Set A); 


end Package With Body; 








package body Package With Body is 


procedure Set A (This : in out Basic Record; 
An A : in Integer) 
is 
begin 
This.A :- An A; 
end Set A; 


function Get A (This : Basic Record) return Integer is 
begin 

return This.A; 
end Get A; 


end Package With Body; 











pragma 


Only available when using GNAT”. 


17.2.4 Two Flavors of Package 


'The packages above each define a type together with operations of the type. When the 
type's composition is placed in the private part of a package, the package then exports what 
is known to be an Abstract Data Type? or ADT for short. Objects of the type are then 
constructed by calling one of the subprograms associated with the respective type. 


A different kind of package is the Abstract State Machine. A package will be modeling a 
single item of the problem domain, such as the motor of a car. If a program controls one car, 
there is typically just one motor, or the motor. The public part of the package specification 
only declares the operations of the module (of the motor, say), but no type. All data of 
the module are hidden in the body of the package where they act as state variables to be 
queried, or manipulated by the subprograms of the package. The initialization part sets the 
state variables to their initial values. 





package Package With Body is 
procedure Set A ( An A : in Integer) ; 
function Get A return Integer; 


private 














7 http: //en.wikipedia. org/wiki/GNAT 
8 http://en.wikipedia.org/wiki/Abstract data type 
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pragma Pure Function ( Get A) ; 


end Package With Body; 








package body Package With Body is 


The A: Integer; 


procedure Set A ( An A: in Integer) is 
begin 

The A :- An A; 
end Set A; 


function Get A return Integer is 
begin 
return The A; 
end Get A; 
begin 


The A := 0; 


end Package With Body; 











(A note on construction: The package initialization part after begin corresponds to a 
construction subprogram of an ADT package. However, as a state machine £s an “object” 
already, “construction” is happening during package initialization. (Here it sets the state 
variable The, A to its initial value.) An ASM package can be viewed as a singleton?.) 


17.3 Using packages 
Using packages 


To utilize a package it's needed to name it in a with clause, whereas to have direct visibility 
of that package it's needed to name it in a use clause. 


For C++ programmers, Ada's with clause is analogous to the C++ preprocessor's #include 
and Ada's use is similar to the using namespace statement in C++. In particular, use 
leads to the same namespace pollution problems as using namespace and thus should be 
used sparingly. Renaming can shorten long compound names to a manageable length, while 
the use type clause makes a type's operators visible. These features reduce the need for 
plain use. 


17.3.1 Standard with 


'The standard with clause provides visibility for the public part of a unit to the following 
defined unit. The imported package can be used in any part of the defined unit, including 
the body when the clause is used in the specification. 





9 http://en.wikipedia.org/wiki/Singleton pattern 


137 


Packages 





17.3.2 Private with 


This language feature is only available in Ada 2005 





private with Ada.Strings.Unbounded; 

package Private With is 
--The package Ada.String.Unbounded is not visible at this point 
type Basic_Record is private; 


procedure Set_A (This : in out Basic_Record; 
An A : in String); 


function Get A (This : Basic Record) return String; 


private 
--The visibility of package Ada.String.Unbounded starts here 


package Unbounded renames Ada.Strings.Unbounded; 


type Basic, Record is 
record 
A : Unbounded.Unbounded String; 
end record; 


pragma ` (Get A); 
pragma (Get A); 
pragma (Set A); 


end Private With; 








package body Private With is 
--The private withed package is visible in the body too 


procedure Set A (This : in out Basic Record; 


An A : in String) 
is 
begin 
This.A := Unbounded.To Unbounded String (An A); 
end Set A; 


function Get A (This : Basic Record) return String is 
begin 

return Unbounded.To String (This.A); 
end Get A; 


end Private With; 











17.3.3 Limited with 


This language feature is only available in Ada 2005 





limited with Departments; 


package Employees is 
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type Employee is tagged private; 
procedure Assign Employee 
(E : in out Employee; 
D : access Departments.Department'Class); 
type Dept Ptr is access all Departments.Department'Class; 


function Current Department(E : in Employee) return Dept Ptr; 


end Employees; 








limited with Employees; 
package Departments is 
type Department is tagged private; 
procedure Choose Manager 
(Dept : in out Department; 


Manager : access Employees.Employee'Class) ; 


end Departments; 











17.3.4 Making operators visible 


Suppose you have a package Universe that defines some numeric type T. 





with Universe; 
procedure P is 


V: Universe. T :- 10. 0; 
begin 

V := Vx 42. 0; --illegal 
end P; 











This program fragment is illegal since the operators implicitly defined in Universe are not 


directly visible. 


You have four choices to make the program legal. 


Use a use_package_clause. This makes all declarations in Universe directly visible 


(provided they are not hidden because of other homographs). 





with Universe; 
use Universe; 
procedure P is 


V: Universe. T := 10. 0; 
begin 

V := V* 42. 0; 
end P; 











Use renaming. This is error prone since if you rename many operators, cut and paste errors 


are probable. 
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with Universe; 

procedure P is 
function "*" ( Left, Right: Universe. T) return Universe. T renames Universe. "x"; 
function "/" ( Left, Right: Universe. T) return Universe. T renames Universe. "x"; 
--oops 
V: Universe. T := 10. 0; 

begin 
V := V* 42. 0; 

end P; 











Use qualification. T'his is extremely ugly and unreadable. 





with Universe; 
procedure P is 


V: Universe. T := 10. 0; 
begin 

V := Universe. "x" (V, 42. 0); 
end P; 











Use the use type clause. This makes only the operators in Universe directly visible. 





with Universe; 

procedure P is 
V: Universe. T := 10. 0; 
use type Universe. T; 

begin 
V:- V* 42. 0; 

end P; 











'There is a special beauty in the use type clause. Suppose you have a set of packages like 
S0: 





with Universe; 
package Pack is 

subtype T is Universe. T; 
end Pack; 








with Pack; 
procedure P is 
V: Pack. T := 10. 0; 
begin 
V := V* 42. 0; --illegal 
end P; 











Now you've got into trouble. Since Universe is not made visible, you cannot use a use - 
package clause for Universe to make the operator directly visible, nor can you use qualifi- 
cation for the same reason. Also a use package clause for Pack does not help, since the 
operator is not defined in Pack. The effect of the above construct means that the operator 
is not nameable, i.e. it cannot be renamed in a renaming statement. 


Of course you can add Universe to the context clause, but this may be impossible due to 
some other reasons (e.g. coding standards); also adding the operators to Pack may be 
forbidden or not feasible. So what to do? 
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The solution is simple. Use the use type clause for Pack. T and all is well! 





with Pack; 

procedure P is 
V: Pack. T:= 10. 0; 
use type Pack. T; 

begin 
V:- V* 42. 0; 

end P; 











17.4 Package organisation 


Package organisation 


17.4.1 Nested packages 


A nested package is a package declared inside a package. Like a normal package, it has a 
public part and a private part. From outside, items declared in a nested package N will 
have visibility as usual; the programmer may refer to these items using a full dotted name 
like P.N.X. (But not P.M.Y.) 





package P is 
D: Integer; 


--a nested package: 
package N is 

X: Integer; 
private 

Foo: Integer; 
end N; 


E: Integer; 
private 
--another nested package: 
package M is 
Y: Integer; 
private 
Bar: Integer; 
end M; 


end P; 











Inside à package, declarations become visible as they are introduced, in textual order. That 
is, a nested package N that is declared after some other declaration D can refer to this 
declaration D. A declaration E following N can refer to items of N!?. But neither can “look 
ahead" and refer to any declaration that goes after them. For example, spec N above cannot 
refer to M in any way. 


In the following example, a type is derived in both of the two nested packages Disks and 
Books. Notice that the full declaration of parent type Item appears before the two nested 





10 For example, E: Integer :- D + N.X; 
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packages. 








with Ada ; 


use Ada ; 


package Shelf is 


pragma Elaborate Body; 
--things to put om the shelf 


type ID is range 1 000 .. 9_999; 
type Item ( Identifier : ID) 
type Item Ref is access constant Item' class; 
function Next ID 
--a fresh ID for 


return ID; 
an Item to Put on the shelf 


package Disks is 


type Music is ( 
Jazz, 
Rock, 
Raga, 
Classic, 
Pop, 
Soul) ; 


type Disk ( Style 
with record 
Artist 
Title 
end record; 


Music; Identifier : 
Unbounded String; 
Unbounded String; 


end Disks; 


package Books is 


type Literature is ( 
Play, 
Novel, 
Poem, 
Story, 
Text, 
Art) ; 
type Book ( Kind : 


Literature; Identifier 


( Identifier) 


with record 


Authors Unbounded String; 
Title Unbounded String; 
Year Integer; 
end record; 
end Books; 
--shelf manipulation 
procedure Put ( it: Item Ref) ; 


ID) 
String) 


function Get ( identifier 
function Search ( title 


return Item Ref; 
return ID; 


private 


ID) 


is abstract tagged limited null record; 


is new Item ( Identifier) 


ID) is new Item 
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--keeping private things private 


package Boxes is 


type Treasure( Identifier: ID) is limited private; 
private 
type Treasure( Identifier: ID) is new Item( Identifier) with null record; 
end Boxes; 
end Shelf; 











A package may also be nested inside a subprogram. In fact, packages can be declared in any 
declarative part, including those of a block. 


17.4.2 Child packages 


Ada allows one to extend the functionality of a unit (package) with so-called children (child 
packages). With certain exceptions, all the functionality of the parent is available to a child. 
'This means that all public and private declarations of the parent package are visible to all 
child packages. 


'The above example, reworked as a hierarchy of packages, looks like this. Notice that the 
package Ada is not needed by the top level package Shelf, hence its with clause doesn't 
appear here. (We have added a match function for searching a shelf, though): 





package Shelf is 
pragma Elaborate Body; 
type ID is range 1 000 .. 9.999; 
type Item ( Identifier : ID) is abstract tagged limited null record; 


type Item_Ref is access constant Item' Class; 


function Next_ID return ID; 
--a fresh ID for an Item to Put on the shelf 


function match ( it : Item; Text : String) return Boolean is abstract; 
--see whether It has bibliographic information matching Text 


--shelf manipulation 


procedure Put ( it: Item_Ref) ; 

function Get ( identifier : ID) return Item_Ref; 

function Search ( title : String) return ID; 
end Shelf; 











The name of a child package consists of the parent unit's name followed by the child 
package's identifier, separated by a period (dot) ` '. 





with Ada ; use Ada ; 
package Shelf. Books is 


type Literature is ( 
Play, 
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Novel, 
Poem, 
Story, 
Text, 
Art) ; 
type Book ( Kind : Literature; Identifier : ID) is new Item ( Identifier) 
with record 
Authors : Unbounded String; 
Title : Unbounded String; 
Year : Integer; 
end record; 
function match( it: Book; text: String) return Boolean; 
end Shelf. Books; 











Book has two components of type Unbounded String, so Ada appears in a with clause of 
the child package. This is unlike the nested packages case which requires that all units 
needed by any one of the nested packages be listed in the context clause of the enclosing 
package (see 10.1.2 Context Clauses - With Clauses “{http://www.adaic.org/resources/ 
add content/standards/Obrm/html/RM-10-1-2.html) ). Child packages thus give better 
control over package dependences. With clauses are more local. 


The new child package Shelf .Disks looks similar. The Boxes package which was a nested 
package in the private part of the original Shelf package is moved to a private child 
package: 





private package Shelf. Boxes is 


type Treasure( Identifier: ID) is limited private; 

private 
type Treasure( Identifier: ID) is new Item( Identifier) with null record; 
function match( it: Treasure; text: String) return Boolean; 


end Shelf. Boxes; 











The privacy of the package means that it can only be used by equally private client units. 
These clients include private siblings and also the bodies of siblings (as bodies are never 
public). 


Child packages may be listed in context clauses just like normal packages. A with of a child 
also 'withs' the parent. 


17.4.3 Subunits 


A subunit is just a feature to move a body into a place of its own when otherwise the 
enclosing body will become too large. It can also be used for limiting the scope of context 
clauses. 


The subunits allow to physically divide a package into different compilation units without 
breaking the logical unity of the package. Usually each separated subunit goes to a different 
file allowing separate compilation of each subunit and independent version control history 
for each one. 
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package body Pack is 
procedure Proc is separate; 
end Pack; 


with Some Unit; 
Separate ( Pack) 
procedure Proc is 
begin 


end Proc; 





17.5 Notes 
Notes 


17.6 See also 


See also 


17.6.1 Wikibook 


e Ada Programming! 


17.6.2 Wikipedia 


e Module!? 


17.6.3 Ada 95 Reference Manual 


e Annex 7: Packages? 


17.6.4 Ada 2005 Reference Manual 


e Annex 7: Packages!* 





Jl: 
12 
13 
14 


http://en.wikibooks.org/wiki/Ada/20Programming 
http://en.wikipedia.org/wiki/Module%20/28programming/29 
http://www.adaic.org/resources/add_content/standards/951rm/ARM_HTML/RM-7.html 
http://www.adaic.org/resources/add_content/standards/05rm/html/RM-2-7.html 
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18 Input Output 


18.1 Overview 


Overview 


The standard Ada libraries provide several Input/Output facilities, each one adapted to 
specific needs. Namely, the language defines the following dedicated packages: 


e Text IO 

e Sequential IO 
e Direct. IO 

e Stream IO 


'The programmer must choose the adequate package depending on the application needs. 
For example, the following properties of the data handled by the application should be 
considered: 


e Data contents: plain text, or binary data? 

e Accessing the data: random access, or sequential access? 

e Medium: data file, console, network/data-bus? 

e Data structure: homogeneous file (sequence of the same data field), heterogeneous file 
(different data fields)? 

e Data format: adherence to an existing data format, or the application can freely choose 
a new one? 


For example, Stream. IO is very powerful and can handle complex data structures but can 
be heavier than other packages; Sequential IO is lean and easy to use but cannot be used 
by applications requiring random data access; Text IO can handle just textual data, but it 
is enough for handling the command-line console. 


The following table gives some advices for choosing the more adequate one: 

















Simple heuristics for choosing an I/O package 
Data access Plain text Binary:dan 

Homogeneous Heterogeneous 
Sequential Text. IO Sequential IO Stream IO 
Random Text IO Direct. IO Stream IO 




















So the most important lesson to learn is choosing the right one. This chapter will describe 
more in detail these standard packages, explaining how to use them effectively. Besides 
these Ada-defined packages for general I/O operations each Ada compiler usually has other 
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implementation-defined Input-Output facilities, and there are also other external libraries 
for specialized I/O needs! like XML processing or interfacing with databases. 


18.2 Text I/O 
Text I/O 


Text I/O? is probably the most used Input/Output package. All data inside the file are 
represented by human readable text. Text I/O provides support for line and page layout 
but the standard is free form text. 





with Ada 
use Ada 
with Ada 
use Ada 


procedure Main is 


Str : String ( 1.. 5) ; 
Last : Natural; 
begin 


Ada. Text IO. Get Line ( Str, Last) ; 
Ada. Text IO. Put Line ( Str ( 1.. Last) ) ; 
end; 











It also contains several generic packages for converting numeric and enumeration types to 
character strings, or for handling Bounded and Unbounded strings, allowing the program- 
mer to read and write different data types in the same file easily (there are ready-to-use 
instantiations of these generic packages for the Integer, Float, and Complex types). Finally, 
the same family of Ada.Text IO packages (including the several children and instantiation 
packages) for the type Wide Character and Wide Wide Character. 


It is worth noting that the family of Text IO packages provide some automatic text 
processing. For example, the Get Line ignores white spaces at the beginning of a line 
(Get Immediate does not present this behavior), or adding a newline character when closing 
the file. This is thus adequate for applications handling simple textual data, but users 
requiring direct management of text (e.g. raw access to the character encoding) must 
consider other packages like Sequential IO. 


18.3 Direct I/O 
Direct I/O 


Direct I/O is used for random access files which contain only elements of one specific type. 
With Direct IO you can position the file pointer to any element of that type (random access), 
however you can't freely choose the element type, the element type needs to be a definite 
subtype?. 





1 http://en.wikibooks.org/wiki/Ada/20Programming/230ther/20Language/20Libraries 
2 http://en.wikibooks.org/wiki/Ada/20Programing/2FLibraries/2FAda.Text_I0 
3 http://en.wikibooks.org/wiki/ada/20Programming/2FSubtypes/23definite_subtype 
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18.4 Sequential I/O 
Sequential I/O 


Direct I/O is used for random access files which contain only elements of one specific 
type. With Sequential IO it is the other way round: you can choose between definite and 
indefinite? element types but you have to read and write the elements one after the other. 


18.5 Stream I/O 
Stream I/O 


Stream I/O is the most powerful input/output package which Ada provides. Stream I/O 
allows you to mix objects from different element types in one sequential file. In order to 
read/write from/to a stream each type provides a 'Read® and 'Write” attribute as well as 
an 'Input? and 'Output? attribute. These attributes are automatically generated for each 
type you declare. 


The 'Read!? and 'Write!! attributes treat the elements as raw data. They are suitable for 
low level input/output as well as interfacing with other programming languages. 


The 'Input!? and 'Output!® attribute add additional control informations to the file, like for 
example the 'First!* and 'Last!? attributes from an array. 


In object orientated programming you can also use the 'Class!9'Input!" and 'Class!?'Output!? 
attributes - they will store and recover the actual object type as well. 


Stream I/O is also the most flexible input/output package. All I/O attributes can be 
replaced with user defined functions or procedures using representation clauses and you can 
provide your own Stream I/O types using flexible object oriented techniques. 


18.6 See also 





4 http://en.wikibooks.org/wiki/ada/20Programming/2FSubtypes/23definite_subtype 

5 http://en.wikibooks.org/wiki/ada/20Programming/2FSubtypes/23Ada/20Programming% 
2FSubtypes/23indefinite_subtype 

6 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Read 

T http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Write 

8 http://en.wikibooks.org/wiki/Ada/20Programming/,2FAttributes/2F/27 Input 

9 http://en.wikibooks.org/wiki/Ada/20Programing/2FAttributes/2F/270utput 

10  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Read 

11 http://en.wikibooks.org/wiki/Ada/»20Programming/2FAttributes/2F/27Write 

12 http://en.wikibooks. org/wiki/Ada/20Programming/2FAttributes/2F/27Input 

13 http://en.wikibooks. org/wiki/Ada/20Programming/2FAttributes/2F/270utput 

14 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27First 

15 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Last 

16 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes{2F/27Class 

17 http://en.wikibooks. org/wiki/Ada/20Programming/2FAttributes/2F/27 Input 

18  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Class 

19 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/270utput 


149 


Input Output 





See also 


18.6.1 Wikibook 


e Ada Programming?? 
e Ada Programming/Libraries/Ada.Direct IO?! 
e Ada Programming/Libraries/Ada.Sequential IO?? 
e Ada Programming/Libraries/Ada.Streams?? 
e Ada Programming /Libraries/Ada.Streams.Stream_IO74 
e Ada Programming/Libraries/Ada.Text IO Text. Streams? 
e Ada Programming/Libraries/Ada.Text_IO?° 
e Ada Programming/Libraries/Ada.Text IO.Enumeration IO?" (nested package) 
e Ada Programming/Libraries/Ada.Text IO.Integer IO?? (nested package) 
e Ada Programming/Libraries/Ada.Text IO.Modular IO?? (nested package) 
e Ada Programming/Libraries/Ada.Text IO.Float IO?? (nested package) 
e Ada Programming/Libraries/Ada.Text IO.Fixed IO?! (nested package) 
e Ada Programming/Libraries/Ada.Text IO.Decimal IO?? (nested package) 
e Ada Programming/Libraries /Ada.Text_10.Bounded_ IO?? 
e Ada Programming/Libraries/Ada.Text IO .Unbounded IO?4 
e Ada Programming/Libraries/Ada.Text IO.Complex 10% (specialized needs annex) 
e Ada Programming/Libraries/Ada.Text IO.Editing?? (specialized needs annex) 
e Ada Programming/Libraries/Ada.Integer "Text IO?" 
e Ada Programming/Libraries/ Ada.Float Text 10% 
e Ada Programming/Libraries/Ada.Complex Text IO?? (specialized needs annex) 
e Ada Programming/Libraries/Ada.Storage IO^? (not a general-purpose I/O package) 
e Ada Programming/Libraries/Ada.IO Exceptions?! 
e Ada Programming/Libraries/Ada.Command Line"? 





20 http://en.wikibooks. org/wiki/Ada/20Programming 

21  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Direct_I0 

22  http://en.wikibooks.org/wiki/Ada/20Programing/2FLibraries/2FAda.Sequential_I0 

23  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Streams 

24  http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibraries/2FAda.Streams.Stream IO 

25  http://en.wikibooks.org/wiki/Ada/20Programming/A2FLibrariesA2FAda.Text IO.Text Streams 
26  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Enumeration_ 


IO 
28  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Integer_10 


29  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Modular_10 
30  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Float_I0 
31 http: //en.wikibooks. org/wiki/Ada/20Programming/,2FLibraries/2FAda.Text_I0.Fixed_I0 
32  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Decimal_10 
33  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Bounded_10 
34  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Unbounded_10 
35  http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibraries/2FAda.Text IO.Complex IO 
36  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Editing 

37 http: //en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Integer_Text_I0 

38  http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibraries/2FAda.Float Text IO 

39  http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibraries/2FAda.Complex Text IO 

40 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Storage_I0 

4] http: //en.wikibooks. org/wiki/Ada/20Programming/,2FLibraries/2FAda.I0_Exceptions 

42  http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibraries/A2FAda.Command Line 
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Ada Programming/Libraries/ Ada.Directories?? 

Ada Programming/Libraries/ Ada.Environment Variables^ 

Ada Programming/Libraries/GNAT.IO* (implementation defined) 

Ada Programming/Libraries/GNAT.IO Aux* (implementation defined) 
Ada Programming/Libraries/GNAT.Calendar.Time_10% (implementation defined) 
Ada Programming/Libraries/System.IO?? (implementation defined) 

Ada Programming/Libraries*® 

e Ada Programming/Libraries/GUI°? 

e Ada Programming/Libraries/Web?! 

e Ada Programming/Libraries/Database?? 

Ada Programming/Platform?? 

Ada Programming/Platform/Linux?* 

Ada Programming/Platform/ Windows?? 


18.6.2 Ada Reference Manual 


A.6 Input-Output “{http://www.adaic.org/resources/add_content/standards/ 
O5brm/html/RM-A-6.html) 

A.7 External Files and File Objects “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-A-7.html]) 

A.8 Sequential and Direct Files ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-A-8.html) 

A.10 Text Input-Output “{http://www.adaic.org/resources/add_content/ 
standards/Obrm/html/RM-A-10.html) 

A.11 Wide Text Input-Output and Wide Wide Text Input-Output “{http://www.adaic. 
org/resources/add content/standards/Obrm/html/RM-A-11.html) 

A.12 Stream Input-Output  ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-A-12.html) 

A.13 Exceptions in Input-Output ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-A-13.html) 

A.14 File Sharing ^[http://www.adaic.org/resources/add content/standards/ 
O5rm/html/RM-A-14.html)+ 





http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Directories 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Environment_ 


Variables 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT. IO 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.1I0_Aux 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Calendar.Time_10 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FSystem.I0 

Chapter 40 on page 331 

Chapter 48 on page 361 

Chapter 51 on page 371 

Chapter 50 on page 365 

Chapter 53 on page 375 

Chapter 54 on page 377 

Chapter 55 on page 379 
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18.6.3 Ada 95 Quality and Style Guide 


e 7.7 Input/Output ^(http://www.adaic.org/resources/add content/docs/95style/ 
html/sec_7/7-7. html} 


e 7.7.1 Name and Form Parameters “{http://www.adaic.org/resources/add_ 
content/docs/95style/html/sec_7/7-7-1.htm1l} 

e 7.7.2 File Closing ^(http://www.adaic.org/resources/add content/docs/ 
95style/html/sec 7/7-7-2.html) 

e 7.7.3 Input/Output on Access Types “{http://www.adaic.org/resources/add_ 
content/docs/95style/html/sec_7/7-7-3. html} 

e 7.7.4 Package Ada.Streams.Stream_IO “{http://www.adaic.org/resources/add_ 
content/docs/95style/html/sec_7/7-7-4. html} 


e 7.7.5 Current Error Files “{http://www.adaic.org/resources/add_content/docs/ 
95style/html/sec_7/7-7-5.htm1} 
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19 Exceptions 


19.1 Robustness 


Robustness 


Robustness is the ability of a system or system component to behave “reasonably” when it 
detects an anomaly, e.g.: 


e It receives invalid inputs. 
e Another system component (hardware or software) malfunctions. 


Take as example a telephone exchange control program. What should the control program 
do when a line fails? It is unacceptable simply to halt — all calls will then fail. Better would 
be to abandon the current call (only), record that the line is out of service, and continue. 
Better still would be to try to reuse the line — the fault might be transient. Robustness 
is desirable in all systems, but it is essential in systems on which human safety or welfare 
depends, e.g., hospital patient monitoring, aircraft fly-by-wire, nuclear power station control, 
etc. 


19.2 Modules, preconditions and postconditions 


Modules, preconditions and postconditions 


A module may be specified in terms of its preconditions and postconditions. A precondition 
is a condition that the module's inputs are supposed to satisfy. A postcondition is a condition 
that the module's outputs are required to satisfy, provided that the precondition is satisfied. 
What should a module do if its precondition is not satisfied? 


e Halt? Even with diagnostic information, this is generally unacceptable. 

e Use a global result code? The result code can be set to indicate an anomaly. Subsequently 
it may be tested by a module that can effect error recovery. Problem: this induces tight 
coupling among the modules concerned. 

e Each module has its own result code? This is a parameter (or function result) that may 
be set to indicate an anomaly, and is tested by calling modules. Problems: (1) setting 
and testing result codes tends to swamp the normal-case logic and (2) the result codes 
are normally ignored. 

e Exception handling — Ada’s solution. A module detecting an anomaly raises an exception. 
'The same, or another, module may handle that exception. 


The exception mechanism permits clean, modular handling of anomalous situations: 
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e A unit (e.g., block or subprogram body) may raise an exception, to signal that an anomaly 
has been detected. The computation that raised the exception is abandoned (and can 
never be resumed, although it can be restarted). 

e A unit may propagate an exception that has been raised by itself (or propagated out of 
another unit it has called). 

e A unit may alternatively handle such an exception, allowing programmer-defined recovery 
from an anomalous situation. Exception handlers are segregated from normal-case code. 


19.3 Predefined exceptions 


Predefined exceptions 


'The predefined exceptions are those defined in package Standard . Every language-defined 
run-time error causes a predefined exception to be raised. Some examples are: 


e Constraint Error, raised when a subtype’s constraint is not satisfied 

e Program Error, when a protected operation is called inside a protected object, e.g. 

e Storage Error, raised by running out of storage 

e Tasking Error, when a task cannot be activated because the operating system has not 
enough resources, e.g. 


Ex.1 





Name : String (1 .. 10); 


Name := "Hamlet"; --Raises Constraint_Error, 














--because the "Hamlet" has bounds (1 .. 6). 
Ex.2 
loop 
P := new Int Node'(0, P); 
end loop; --Soon raises Storage Error, 
--because of the extreme memory leak. 











Ex.3 Compare the following approaches: 





procedure Compute_Sqrt (X : in Float; 
Sqrt : out Float; 
OK : out Boolean) 
is 
begin 
if X >= 0 then 
OK := True; 
--compute dr 
else 
OK := False; 
end if; 
end Compute Sqrt; 
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procedure Triangle (A, B, C : in Float; 
Area, Perimeter : out Float; 
Exists : out Boolean) 
is 
S : Float := 0.5 * (A + B + C); 
OK : Boolean; 


begin 
Compute Sqrt (S * (S-A) * (S-B) * (S-C), Area, OK); 
Perimeter := 2.0 * S; 
Exists := OK; 


end Triangle; 











A negative argument to Compute Sqrt causes OK to be set to False. Triangle uses it to 


determine its own status parameter value, and so on up the calling tree, ad nauseam. 


versus 





function Sqrt (X : Float) return Float is 
begin 
if X « 0.0 then 
raise Constraint Error; 
end if; 
--compute VX 


end Sqrt; 


procedure Triangle (A, B, C : in Float; 
Area, Perimeter : out Float) 
is 
S : Float : 0.5 * (A + B + C); 
OK : Boolean; 


begin 
Area := Sort (S * (S-A) * (S-B) * (S-C)); 
Perimeter := 2.0 * S; 


end Triangle; 











A negative argument to Sqrt causes Constraint Error to be explicitly raised inside Sqrt, 


and propagated out. Triangle simply propagates the exception (by not handling it). 


Alternatively, we can catch the error by using the type system: 





subtype Pos Float is Float range 0.0 .. Float'Last; 
function Sqrt (X : Pos Float) return Pos Float is 
begin 

--compute dr 


end Zort: 











A negative argument to Sqrt now raises Constraint Error at the point of call. Sqrt is never 


even entered. 


19.4 Input-output exceptions 


Exceptions 





Input-output exceptions 


Some examples of exceptions raised by subprograms of the predefined package Ada.Text - 
IO are: 


e End Error, raised by Get, Skip Line, etc., if end-of-file already reached. 

e Data Error, raised by Get in Integer IO, etc., if the input is not a literal of the expected 
type. 

e Mode Error, raised by trying to read from an output file, or write to an input file, etc. 

e Layout Error, raised by specifying an invalid data format in a text I/O operation 


Ex. 1 





declare 
A: Matrix (1 .. M, 1 .. N); 
begin 
for I in 1 .. M loop 
for J in 1 .. N loop 
begin 
Get (A(I,J)); 
exception 
when Data Error => 
Put ("Ill-formed matrix element"); 
ACI,J) := 0.0; 
end; 
end loop; 
end loop; 
exception 
when End_Error => 
Put ("Matrix element(s) missing"); 
end; 











19.5 Exception declarations 


Exception declarations 


Exceptions are declared rather like objects, but they are not objects. For example, recursive 
re-entry to a scope where an exception is declared does not create a new exception of the 
same name; instead the exception declared in the outer invocation is reused. 


Ex.1 





Line Failed : exception; 











Ex.2 





package Directory Enquiries is 


procedure Insert (New Name : in Name; 
New Number : in Number); 


procedure Lookup (Given Name : in Name; 
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Corr Number : out Number); 
Name Duplicated : exception; 
Name Absent : exception; 


Directory Full : exception; 


end Directory Enquiries; 











19.6 Raising exceptions 


Raising exceptions 


The raise statement explicitly raises a specified exception. 


Ex. 1 





package body Directory Enquiries is 


procedure Insert (New Name : in Name; 
New Number : in Number) 

is 

begin 


if New Name = Old Entry.A Name then 
raise Name Duplicated; 
end if; 


exception 
when Storage Error => raise Directory Full; 
end Insert; 


procedure Lookup (Given Name : in Name; 
Corr Number : out Number) 

is 

begin 


if not Found then 
raise Name Absent; 
end if; 


end Lookup; 


end Directory Enquiries; 





New Entry :- new Dir Node'(New Name, New Number,... 








19.7 Exception handling and propagation 


Exception handling and propagation 


Exception handlers may be grouped at the end of a block, subprogram body, etc 


is any sequence of statements that may end: 


. A handler 
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e by completing; 

e by executing a return statement; 

* by raising a different exception (raise e;); 
e by re-raising the same exception (raise;). 


Suppose that an exception e is raised in a sequence of statements U (a block, subprogram 
body, etc.). 


e If U contains a handler for e: that handler is executed, then control leaves U. 


e If U contains no handler for e: eis propagated out of U; in effect, e is raised at the "point 
of call? of U. 


So the raising of an exception causes the sequence of statements responsible to be abandoned 
at the point of occurrence of the exception. It is not, and cannot be, resumed. 


Ex. 1 





exception 
when Line Failed => 
begin --attempt recovery 


Log Error; 
Retransmit (Current Packet); 
exception 
when Line Failed => 
Notify Engineer; --recovery failed! 


Abandon Call; 
end; 











19.8 Information about an exception occurrence 


Information about an exception occurrence 


Ada provides information about an exception in an object of type Exception Occurrence, 
defined in Ada.Exceptions along with subprograms taking this type as parameter: 


e Exception Name: return the full exception name using the dot notation and in uppercase 
letters. For example, Queue . Overflow. 

e Exception Message: return the exception message associated with the occurrence. 

e Exception Information: return a string including the exception name and the associated 
exception message. 


For getting an exception occurrence object the following syntax is used: 





with Ada ; use Ada ; 


exception 
when Error: High Pressure | High Temperature => 
Put ("Exception: "); 
Put Line (Exception Name (Error)); 
Put (Exception Message (Error)); 
when Error: others => 
Put ("Unexpected exception: "); 
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Put Line (Exception Information(Error)); 
end; 











The exception message content is implementation defined when it is not set by the user who 
raises the exception. It usually contains a reason for the exception and the raising location. 


'The user can specify a message using the procedure Raise Exception. 





declare 
Valve Failure : exception; 
begin 


Raise Exception (Valve Failure'Identity, "Failure while opening"); 

Raise Exception (Valve Failure'Identity, "Failure while closing"); 
exception 

when Fail: Valve Failure => 


Put (Exception Message (Fail)); 
end; 











Starting with Ada 2005, a simpler syntax can be used to associate a string message with 
exception occurrence. 





-- This language feature is only available in Ada 2005 
declare 

Valve Failure : exception; 
begin 


raise Valve Failure with "Failure while opening"; 

raise Valve Failure with "Failure while closing"; 
exception 

when Fail: Valve Failure => 


Put (Exception Message (Fail)); 
end; 











The Ada.Exceptions package also provides subprograms for saving exception occurrences 
and re-raising them. 


19.9 See also 
See also 


19.9.1 Wikibook 


e Ada Programming! 





1 http://en.wikibooks.org/wiki/Ada/20Programming 
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19.9.2 Ada 95 Reference Manual 


e Section 11: Exceptions “(http://www 
standards/951rm/ARM HTML/RM-11.html) 

e 11.4.1 The Package Exceptions *{http://www 
standards/951rm/ARM HTML/RM-11-4-1.html) 


19.9.3 Ada 2005 Reference Manual 
e Section 11: Exceptions “(http://www 
standards/Obrm/html/RM-11.html) 


e 11.4.1 The Package Exceptions *{http://www 
standards/Obrm/html/RM-11-4-1.htm1l) 


19.9.4 Ada Quality and Style Guide 


e Chapter 4: Program Structure 


.adaic. 


.adaic 


.adaic. 


.adaic. 


org/resources/add content/ 


.org/resources/add content/ 


org/resources/add content/ 


org/resources/add content/ 


e 4.3 Exceptions ^(http://www.adaic.org/resources/add content/docs/95style/ 


html/sec 4/4-3.html) 


e 4.3.1 Using Exceptions to Help Define an Abstraction “{http://www.adaic.org/ 
resources/add_content/docs/95style/html/sec_4/4-3-1.htm1} 


e Chapter 5: Programming Practices 


e 5.8 Using Exceptions “{http://www.adaic.org/resources/add_content/docs/ 


95style/html/sec 5/5-8.html) 


e 5.8.1 Handling Versus Avoiding Exceptions “{http://www.adaic.org/resources/ 
add content/docs/95style/html/sec  5/5-8-1.html) 
e 5.8.2 Handling for Others ^(http://www.adaic.org/resources/add content/ 


docs/95style/html/sec, b/b-8-2.html] 


e 5.8.3 Propagation ^[http://www.adaic.org/resources/add content/docs/ 


95style/html/sec 5/5-8-3.htm1l) 


e 5.8.4 Localizing the Cause of an Exception ^(http://www.adaic.org/resources/ 
add content/docs/95style/html/sec 5/5-8-4.html) 


e Chapter 7: Portability 


e 7.5 Exceptions ^(http://www.adaic.org/resources/add content/docs/95style/ 


html/sec 7/7-5.html) 


e 7.5.1 Predefined and User-Defined Exceptions “{http://www.adaic.org/ 
resources/add_content/docs/95style/html/sec_7/7-5-1.htm1} 

e 7.5.2 Implementation-Specific Exceptions “{http://www.adaic.org/resources/ 
add content/docs/95style/html/sec 7/7-5-2.html) 
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20.1 Parametric polymorphism (generic units) 


Parametric polymorphism (generic units) 


The idea of code reuse arises from the necessity for constructing large software systems 
combining well-established building blocks. The reusability of code improves the productivity 
and the quality of software. The generic units are one of the ways in which the Ada language 
supports this characteristic. A generic unit is a subprogram or package that defines algorithms 
in terms of types and operations that are not defined until the user instantiates them. 


Note to C++ programmers: generic units are similar to C++ templates. 


For example, to define a procedure for swapping variables of any (non-limited) type: 





generic 
type Element T is private; --Generic formal type parameter 
procedure Swap (X, Y : in out Element T); 








procedure Swap (X, Y : in out Element T) is 


Temporary : constant Element T :- X; 
begin 

X := Y; 

Y := Temporary; 
end Swap; 











The Swap subprogram is said to be generic. The subprogram specification is preceded by 
the generic formal part consisting of the reserved word generic followed by a list of generic 
formal parameters which may be empty. The entities declared as generic are not directly 
usable, it is necessary to instantiate them. 


'To be able to use Swap, it is necessary to create an instance for the wanted type. For example: 





procedure Swap Integers is new Swap (Integer); 











Now the Swap. Integers procedure can be used for variables of type Integer. 


'The generic procedure can be instantiated for all the needed types. It can be instantiated 
with different names or, if the same identifier is used in the instantiation, each declaration 
overloads the procedure: 
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procedure Instance Swap is new Swap (Float); 
procedure Instance Swap is new Swap (Day T); 
procedure Instance Swap is new Swap (Element T => Stack T); 











Similarly, generic packages can be used, for example, to implement a stack of any kind of 
elements: 





generic 
Max: Positive; 
type Element T is private; 
package Generic Stack is 
procedure Push (E: Element T); 
function Pop return Element T; 
end Generic. Stack; 








package body Generic Stack is 
Stack: array (1 .. Max) of Element T; 
Top : Integer range 0 .. Max := 0; --initialise to empty 


end Generic, Stack; 











A stack of a given size and type could be defined in this way: 





declare 
package Float 100 Stack is new Generic Stack (100, Float); 
use Float, 100 Stack; 

begin 
Push (45.8); 


end; 











20.2 Generic parameters 


Generic parameters 


'The generic unit declares generic formal parameters, which can be: 


* objects (of mode in or in out but never out) 

e types 

e subprograms 

e instances of another, designated, generic unit. 


When instantiating the generic, the programmer passes one actual parameter for each formal. 
Formal values and subprograms can have defaults, so passing an actual for them is optional. 


20.2.1 Generic formal objects 
Formal parameters of mode in accept any value, constant, or variable of the designated 


type. The actual is copied into the generic instance, and behaves as a constant inside the 
generic; this implies that the designated type cannot be limited. It is possible to specify a 
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default value, like this: 





generic 
Object : in Natural :- 0; 











For mode in out, the actual must be a variable. 


One limitation with generic formal objects is that they are never considered static, even if 
the actual happens to be static. If the object is a number, it cannot be used to create a new 
type. It can however be used to create a new derived type, or a subtype: 





generic 
Size : in Natural := 0; 
package P is 
type T1 is mod Size; --illegal! 
type T2 is range 1 .. Size; --illegal! 


type T3 is new Integer range 1 .. Size; --OK 
subtype T4 is Integer range 1 .. Size; --OK 
end P; 











The reason why formal objects are nonstatic is to allow the compiler to emit the object code 
for the generic only once, and to have all instances share it, passing it the address of their 
actual object as a parameter. This bit of compiler technology is called shared generics. If 
formal objects were static, the compiler would have to emit one copy of the object code, 
with the object embedded in it, for each instance, potentially leading to an explosion in 
object code size (code bloat). 


(Note to C++ programmers: in C++, since formal objects can be static, the compiler cannot 
implement shared generics in the general case; it would have to examine the entire body of 
the generic before deciding whether or not to share its object code. In contrast, Ada generics 
are designed so that the compiler can instantiate a generic without looking at its body.) 


20.2.2 Generic formal types 


The syntax allows the programmer to specify which type categories are acceptable as actuals. 
As a rule of thumb: The syntax expresses how the generic sees the type, i.e. it assumes the 
worst, not how the creator of the instance sees the type. 


This is the syntax of RM 12.5: 





formal type declaration ::- 

type defining identifier[discriminant part] is 
formal type. definition; 
formal type definition ::- formal private type definition 
| formal derived type definition 
| formal discrete type definition 
| formal_signed_integer_type_definition 
| formal_modular_type_definition 
| formal_floating_point_definition 
| formal_ordinary_fixed_point_definition 
| formal_decimal_fixed_point_definition 
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| formal array type definition 
| formal access type definiton 
| formal interface type definition 











This is quite complex, so some examples are given below. A type declared with the syntax 
type T (<>) denotes a type with unknown discriminants. This is the Ada vernacular for 
indefinite types, i.e. types for which objects cannot be declared without giving an initial 
expression. An example of such a type is one with a discriminant without default, another 


example is an unconstrained array type. 





Generic formal type 


Acceptable actual types 





type T (<>) is limited private; 


Any type at all. The actual type can 
be limited! or not, indefinite or definite, 
but the generic treats it as limited and 
indefinite, i.e. does not assume that as- 
signment is available for the type. 





type T (<>) is private; 


Any nonlimited type: the generic knows 
that it is possible to assign to variables 
of this type, but it is not possible to de- 
clare objects of this type without initial 
value. 





type T is private; 


Any nonlimited definite type: the 
generic knows that it is possible to assign 
to variables of this type and to declare 
objects without initial value. 





type T (<>) is abstract tagged 
limited private; 


Any tagged type?, abstract or concrete, 
limited or not. 





type T (<>) is tagged limited 
private; 


Any concrete tagged type, limited or 
not. 





type T (<>) is abstract tagged 
private; 


Any nonlimited tagged type, abstract or 
concrete. 





type T (<>) is tagged private; 


Any nonlimited, concrete tagged type. 





type T (<>) is new Parent; 


Any type derived from Parent. The 
generic knows about Parent's operations, 
so can call them. Neither T nor Parent 
can be abstract. 





type T (<>) is abstract new Parent 
with private; 


Any type, abstract or concrete, derived 
from Parent, where Parent is a tagged 
type, so calls to T's operations can dis- 
patch dynamically. 





type T (<>) is new Parent with 
private; 








Any concrete type, derived from the 
tagged type Parent. 








1 Chapter 14 on page 113 
2 Chapter 22 on page 187 
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Generic formal type Acceptable actual types 

type T is (<>); Any discrete type: integer?, modular‘, 
or enumeration?. 

type T is range <>; Any signed integer type 

type T is mod <>; Any modular type 

type T is delta <>; Any (non-decimal) fixed point type? 

type T is delta <> digits <>; Any decimal fixed point type 

type T is digits <>; Any floating point type’ 

type T is array (I) of E; Any array type? with index of type I 
and elements of type E (I and E could be 
formal parameters as well) 

type T is access 0; Any access type? pointing to objects of 
type 0 (0 could be a formal parameter as 
well) 





In the body we can only use the operations predefined for the type category of the formal 
parameter. That is, the generic specification is a contract between the generic implementor 
and the client instantiating the generic unit. This is different to the parametric features of 
other languages, such as C++. 


It is possible to further restrict the set of acceptable actual types like so: 





Generic formal type Acceptable actual types 





type T (<>) is... Definite or indefinite types (loosely speaking: types 
with or without discriminants, but other forms of indef- 
initeness exist) 

type T (D : DT) is.. Types with a discriminant of type DT (it is possible 
to specify several discriminants, too) 








type T is... Definite types (loosely speaking types without a dis- 
criminant or with a discriminant with default value) 














20.2.3 Generic formal subprograms 


It is possible to pass a subprogram as a parameter to a generic. The generic specifies a 
generic formal subprogram, complete with parameter list and return type (if the subprogram 
is a function). The actual must match this parameter profile. It is not necessary that the 
names of parameters match, though. 





Chapter 6 on page 69 
Chapter 7 on page 71 
Chapter 8 on page 73 
Chapter 10 on page 79 
Chapter 9 on page 77 
Chapter 11 on page 83 
Chapter 13 on page 99 


CON On Oo Ww 
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Here is the specification of a generic subprogram that takes another subprogram as its 
parameter: 





generic 

type Element T is private; 

with function "x" (X, Y: Element T) return Element T; 
function Square (X : Element T) return Element T; 











And here is the body of the generic subprogram; it calls parameter as it would any other 
subprogram. 





function Square (X: Element T) return Element T is 
begin 

return X * X; --The formal operator "x", 
end Square; 











This generic function could be used, for example, with matrices, having defined the matrix 
product. 





with Square; 
with Matrices; 
procedure Matrix Example is 
function Square Matrix is new Square 
(Element T => Matrices.Matrix T, "x" => Matrices.Product); 
A : Matrices.Matrix T :- Matrices.Identity; 
begin 
A := Square Matrix (A); 
end Matrix Example; 











It is possible to specify a default with "the box" (is <> ), like this: 





generic 
type Element T is private; 
with function "*" (X, Y: Element T) return Element T is <>; 











This means that if, at the point of instantiation, a function "*" exists for the actual type, 


and if it is directly visible, then it will be used by default as the actual subprogram. 


One of the main uses is passing needed operators. The following example shows this (follow 
download links for full example): 





File: Algorithms/binary_search.adb 








generic 
type Element Type is private; 


with function "«" 
(Left : in Element Type; 
Right : in Element Type) 
return Boolean 
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is <> ; 


procedure Search 
(Elements : in Array Type; 


Search : in Element Type; 
Found : out Boolean; 
Index : out Index Type'Base) 











20.2.4 Generic instances of other generic packages 


A generic formal can be a package; it must be an instance of a generic package, so that the 
generic knows the interface exported by the package: 





generic 
with package P is new Q (<> ); 











'This means that the actual must be an instance of the generic package Q. The box after Q 
means that we do not care which actual generic parameters were used to create the actual 
for P. It is possible to specify the exact parameters, or to specify that the defaults must be 
used, like this: 





generic 
--P1 must be an instance of Q with the specified actual parameters: 
with package P1 is new Q (Parami => X, Param2 => Y); 


--P2 must be an instance of Q where the actuals are the defaults: 
with package P2 is new Q; 











It is all or nothing: if you specify the generic parameters, you must specify all of them. 
Similarly, if you specify no parameters and no box, then all the generic formal parameters of 
Q must have defaults. The actual package must, of course, match these constraints. 


The generic sees both the public part and the generic parameters of the actual package 
(Paraml and Param2 in the above example). 


This feature allows the programmer to pass arbitrarily complex types as parameters to a 
generic unit, while retaining complete type safety and encapsulation. (example needed) 


It is not possible for a package to list itself as a generic formal, so no generic recursion is 
possible. T'he following is illegal: 





with A; 
generic 
with package P is new A (<> ); 
package A; --illegal: A references itself 











In fact, this is only a particular case of: 
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with A; --illegal: A does not exist yet at this point! 
package A; 











which is also illegal, despite the fact that A is no longer generic. 


20.3 Instantiating generics 


Instantiating generics 


To instantiate a generic unit, use the keyword new: 





function Square_Matrix is new Square 
(Element T => Matrices.Matrix T, "*" => Matrices.Product) ; 











Notes of special interest to C++ programmers: 


e The generic formal types define completely which types are acceptable as actuals; therefore, 
the compiler can instantiate generics without looking at the body of the generic. 

e Each instance has a name and is different from all other instances. In particular, if a 
generic package declares a type, and you create two instances of the package, then you 
will get two different, incompatible types, even if the actual parameters are the same. 

e Ada requires that all instantiations be explicit. 

e It is not possible to create special-case instances of a generic (known as "template 
specialisation' in C4-4-). 


As a consequence of the above, Ada does not permit template metaprogramming. However, 
this design has significant advantages: 


e the object code can be shared by all instances of a generic, unless of course the programmer 
has requested that subprograms be inlined; there is no danger of code bloat. 

e when reading programs written by other people, there are no hidden instantiations, and 
no special cases to worry about. Ada follows the Law of Least Astonishment. 


20.4 Advanced generics 


Advanced generics 


20.4.1 Generics and nesting 


A generic unit can be nested inside another unit, which itself may be generic. Even though 
no special rules apply (just the normal rules about generics and the rules about nested 
units), novices may be confused. It is important to understand the difference between a 
generic unit and instances of a generic unit. 


Example 1. A generic subprogram nested in a nongeneric package. 
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package Bag Of Strings is 

type Bag is private; 

generic 

with procedure Operator (S : in out String); 

procedure Apply To All (B : in out Bag); 
private 

--omitted 
end Bag_Of_Strings; 











To use Apply. To All, you first define the procedure to be applied to each String in the 
Bag. Then, you instantiate Apply_To_ All, and finally you call the instance. 





with Bag_Of_Strings; 
procedure Example 1 is 
procedure Capitalize (S : in out String) is separate; --omitted 
procedure Capitalize A11 is 
new Bag 0f Strings.Apply To A11 (Operator => Capitalize); 
B : Bag 0f Strings.Bag; 
begin 
Capitalize All (B); 
end Example 1; 











Example 2. A generic subprogram nested in a generic package 


This is the same as above, except that now the Bag itself is generic: 





generic 
type Element Type (<>) is private; 
package Generic Bag is 
type Bag is private; 
generic 
with procedure Operator (S : in out Element Type); 
procedure Apply To All (B : in out Bag); 
private 
--omitted 
end Generic Bag; 











As you can see, the generic formal subprogram Operator takes a parameter of the generic 
formal type Element Type. This is okay: the nested generic sees everything that is in its 
enclosing unit. 


You cannot instantiate Generic Bag.Apply To All directly, so you must first 
create an instance of Generic Bag, say Bag Of Strings, and then instantiate 
Bag Of Strings.Apply To AII. 





with Generic, Bag; 
procedure Example 2 is 
procedure Capitalize (S : in out String) is separate; --omitted 
package Bag 0f Strings is 
new Generic Bag (Element Type => String); 
procedure Capitalize_All is 
new Bag 0f Strings.Apply To A11 (Operator => Capitalize); 
B : Bag 0f Strings.Bag; 
begin 
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Capitalize All (B); 
end Example 2; 








20.4.2 Generics and child units 


Example 3. A generic unit that is a child of a nongeneric unit. 


Each instance of the generic child is a child of the parent unit, and so it can see the parent's 
public and private parts. 








package Bag Of Strings is 
type Bag is private; 
private 
--omitted 
end Bag_Of_Strings; 


generic 
with procedure Operator (S : in out String); 
procedure Bag 0f Strings.Apply To A11 (B : in out Bag); 








The differences between this and Example 1 are: 


Bag Of Strings.Apply To All is compiled separately. In particular, Bag Of - 
Strings.Apply To All might have been written by a different person who did not 
have access to the source text of Bag Of Strings. 

Before you can use Bag Of Strings.Apply To All, you must with it explicitly; 
withing the parent, Bag Of Strings, is not sufficient. 

If you do not use Bag Of Strings.Apply To All, your program does not contain 
its object code. 

Because Bag Of Strings.Apply To All is at the library level, it can declare con- 
trolled types; the nested package could not do that in Ada 95. In Ada 2005, one can 
declare controlled types at any level. 








with Bag Of Strings.Apply To All; --implicitly withs Bag_Of_Strings, too 
procedure Example 3 is 
procedure Capitalize (S : in out String) is separate; --omitted 
procedure Capitalize All is 
new Bag 0f Strings.Apply To All (Operator => Capitalize); 
B : Bag 0f Strings.Bag; 
begin 
Capitalize A11 (B); 
end Example 3; 








Example 4. A generic unit that is a child of a generic unit 


'This is the same as Example 3, except that now the Bag is generic, too. 








generic 

type Element Type (<>) is private; 
package Generic Bag is 

type Bag is private; 
private 
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--omitted 
end Generic_Bag; 


generic 
with procedure Operator (S : in out Element Type); 
procedure Generic Bag.Apply To All (B : in out Bag); 


with Generic Bag.Apply To A11; 
procedure Example 4 is 
procedure Capitalize (S : in out String) is separate; --omitted 
package Bag 0f Strings is 
new Generic Bag (Element Type => String); 
procedure Capitalize_All is 
new Bag 0f Strings.Apply To A11 (Operator => Capitalize); 
B : Bag 0f Strings.Bag; 
begin 
Capitalize All (B); 
end Example 4; 











Example 5. A parameterless generic child unit 


Children of a generic unit must be generic, no matter what. If you think about it, it is 
quite logical: a child unit sees the public and private parts of its parent, including the 
variables declared in the parent. If the parent is generic, which instance should the child 
see? The answer is that the child must be the child of only one instance of the parent, 
therefore the child must also be generic. 





generic 
type Element Type (<>) is private; 
type Hash Type is (<>); 
with function Hash Function (E : Element Type) return Hash Type; 
package Generic Hash Map is 
type Map is private; 
private 
--omitted 
end Generic Hash Map; 











Suppose we want a child of à Generic Hash Map that can serialise the map to disk; 
for this it needs to sort the map by hash value. This is easy to do, because we know that 
Hash, Type is a discrete type, and so has a less-than operator. The child unit that does 
the serialisation does not need any additional generic parameters, but it must be generic 
nevertheless, so it can see its parent's generic parameters, public and private part. 





generic 
package Generic Hash Map.Serializer is 
procedure Dump (Item : in Map; To File : in String); 
procedure Restore (Item : out Map; From File : in String); 
end Generic Hash Map.Serializer; 











To read and write a map to disk, you first create an instance of Generic Hash Map, 
for example Map Of Unbounded Strings, and then an instance of Map Of - 
Unbounded_ Strings.Serializer: 
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with Ada.Strings.Unbounded; 
with Generic Hash Map.Serializer; 
procedure Example 5 is 
use Ada.Strings.Unbounded; 
function Hash (S : in Unbounded String) return Integer is separate; --omitted 
package Map 0f Unbounded Strings is 
new Generic Hash Map (Element Type => Unbounded String, 
Hash Type => Integer, 
Hash Function => Hash); 
package Serializer is 
new Map 0f Unbounded $Strings.Serializer; 
M : Map. 0f, Unbounded, Strings.Map; 
begin 
Serializer.Restore (Item => M, From File => "map.dat"); 
end Example 5; 











20.5 See also 


See also 


20.5.1 Wikibook 
e Ada Programming!” 


e Ada Programming/Object Orientation!!: tagged types provides other mean of polymor- 
phism in Ada. 


20.5.2 Wikipedia 


e Generic programming!” 


20.5.3 Ada Reference Manual 


e Section 12: Generic Units “{http://www.adaic.org/resources/add_content/ 
standards/05rm/htm1/RM-12.htm1} 


es:Programación en Ada/Unidades genéricas!? 





10  http://en.wikibooks.org/wiki/AdaA20Programming 
11 Chapter 22 on page 187 


12 http://en.wikipedia. org/wiki/Generic/20programming 
13 http://es.wikibooks. org/wiki/Programaci/F3n/,20en/,20Ada/,2FUnidades/20gen/E9ricas 
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21.1 Tasks 
Tasks 


A task unit is a program unit that is obeyed concurrently with the rest of an Ada program. 
The corresponding activity, a new locus of control, is called a task in Ada terminology, and 
is similar to a thread, for example in Java Threads!. The execution of the main program is 
also a task, the anonymous environment task. A task unit has both a declaration and a 
body, which is mandatory. A task body may be compiled separately as a subunit, but a task 
may not be a library unit, nor may it be generic. Every task depends on a master, which is 
the immediately surrounding declarative region - a block, a subprogram, another task, or a 
package. The execution of a master does not complete until all its dependent tasks have 
terminated. The environment task is the master of all other tasks; it terminates only when 
all other tasks have terminated. 


Task units are similar to packages in that a task declaration defines entities exported from 
the task, whereas its body contains local declarations and statements of the task. 


A single task is declared as follows: 





task Single is 
declarations of exported identifiers 
end Single; 


task body Single is 
local declarations and statements 
end Single; 











A task declaration can be simplified, if nothing is exported, thus: 





task No_Exports; 











Ex. 1 





procedure Housekeeping is 


task Check_CPU; 
task Backup_Disk; 














1 http://en.wikibooks.org/wiki/Java/3AThreads 
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task body Check CPU is 
end Check CPU; 
task body Backup Disk is 


end Backup Disk; 

--the two tasks are automatically created and begin execution 
begin --Housekeeping 

null; 

--Housekeeping waits here for them to terminate 
end Housekeeping; 











It is possible to declare task types, thus allowing task units to be created dynamically, and 
incorporated in data structures: 





task type T is 
enr 

Task 1, Task 2 : T; 
task body T is 


end T; 











Task types are limited, i.e. they are restricted in the same way as limited private types, so 
assignment and comparison are not allowed. 


21.1.1 Rendezvous 


The only entities that a task may export are entries. An entry looks much like a procedure. 
It has an identifier and may have in, out or in out parameters. Ada supports communication 
from task to task by means of the entry call. Information passes between tasks through 
the actual parameters of the entry call. We can encapsulate data structures within tasks 
and operate on them by means of entry calls, in a way analogous to the use of packages for 
encapsulating variables. The main difference is that an entry is executed by the called task, 
not the calling task, which is suspended until the call completes. If the called task is not 
ready to service a call on an entry, the calling task waits in a (FIFO) queue associated with 
the entry. This interaction between calling task and called task is known as a rendezvous. 
The calling task requests rendezvous with a specific named task by calling one of its entries. A 
task accepts rendezvous with any caller of a specific entry by executing an accept statement 
for the entry. If no caller is waiting, it is held up. Thus entry call and accept statement 
behave symmetrically. (To be honest, optimized object code may reduce the number of 
context switches below the number implied by this naive description.) 


Ex. 2 The following task type implements a single-slot buffer, i.e. an encapsulated variable 
that can have values inserted and removed in strict alternation. Note that the buffer 
task has no need of state variables to implement the buffer protocol: the alternation of 
insertion and removal operations is directly enforced by the control structure in the body of 
Encapsulated_Buffer_Task_Type which is, as is typical, a loop. 
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task type Encapsulated Buffer Task Type is 
entry Insert (An Item : in Item); 
entry Remove (An Item : out Item); 

end Encapsulated Buffer Task Type; 


Buffer Pool : array (0 .. 15) of Encapsulated Buffer Task Type; 
This Item : Item; 


task body Encapsulated Buffer Task Type is 
Datum : Item; 
begin 
loop 
accept Insert (An Item : in Item) do 
Datum := An Item; 
end Insert; 
accept Remove (An Item : out Item) do 
An Item := Datum; 
end Remove; 
end loop; 
end Encapsulated Buffer Task Type; 


Buffer Pool(i).Remove (This Item); 
Buffer Pool(2).Insert (This Item); 











21.1.2 Selective Wait 


To avoid being held up when it could be doing productive work, a server task often needs 
the freedom to accept a call on any one of a number of alternative entries. It does this by 
means of the selective wait statement, which allows a task to wait for a call on any of two or 
more entries. 


If only one of the alternatives in a selective wait statement has a pending entry call, then 
that one is accepted. If two or more alternatives have calls pending, the implementation is 
free to accept any one of them. For example, it could choose one at random. This introduces 
bounded non-determinism into the program. A sound Ada program should not depend on a 
particular method being used to choose between pending entry calls. (However, there are 
facilities to influence the method used, when that is necessary.) 


Ex. 3 





task type Encapsulated Variable Task Type is 
entry Store (An Item : in Item); 
entry Fetch (An Item : out Item); 

end Encapsulated Variable Task Type; 


task body Encapsulated Variable Task Type is 
Datum : Item; 
begin 
accept Store (An Item : in Item) do 
Datum := An Item; 
end Store; 
loop 
select 
accept Store (An Item : in Item) do 
Datum := An Item; 
end Store; 
or 
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accept Fetch (An Item : out Item) do 
An Item := Datum; 
end Fetch; 
end select; 
end loop; 
end Encapsulated Variable Task Type; 








x, y : Encapsulated Variable Task Type; 











creates two variables of type Encapsulated Variable Task Type. They can be used thus: 





it : Item; 
x.Store(Some Expression); 


x.Fetch (it); 
y.Store (it); 











Again, note that the control structure of the body ensures that an Encapsulated "Variable - 
Task Type must be given an initial value by a first Store operation before any Fetch 
operation can be accepted. 


21.1.3 Guards 


Depending on circumstances, a server task may not be able to accept calls for some of 
the entries that have accept alternatives in a selective wait statement. The acceptance of 
any alternative can be made conditional by using a guard, which is Boolean? precondition 
for acceptance. This makes it easy to write monitor-like server tasks, with no need for an 
explicit signaling mechanism, nor for mutual exclusion. Àn alternative with a True guard is 
said to be open. It is an error if no alternative is open when the selective wait statement is 
executed, and this raises the Program Error exception. 


Ex. 4 





task Cyclic Buffer Task Type is 
entry Insert (An Item : in Item); 
entry Remove (An Item : out Item); 
end Cyclic Buffer Task Type; 


task body Cyclic Buffer Task Type is 

Q Size : constant :- 100; 

subtype Q Range is Positive range 1 .. Q Size; 

Length : Natural range O .. Q Size :- 0; 

Head, Tail : Q Range :- 1; 

Data : array (Q Range) of Item; 
begin 

loop 

select 
when Length « Q Size => 
accept Insert (An Item : in Item) do 














2 http://en.wikibooks.org/wiki/Ada/20Programming/2FTypes/23Boolean 
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Data(Tail) := An Item; 
end Insert; 
Tail := Tail mod Q Size + 1; 
Length :- Length + 1; 
or 
when Length > 0 => 
accept Remove (An_Item : out Item) do 
An Item := Data(Head) ; 
end Remove; 
Head := Head mod Q_Size + 1; 
Length := Length - 1; 
end select; 
end loop; 
end Cyclic_Buffer_Task_Type; 











21.2 Protected types 
Protected types 


Tasks allow for encapsulation and safe usage of variable data without the need for any 
explicit mutual exclusion and signaling mechanisms. Ex. 4 shows how easy it is to write 
server tasks that safely manage locally-declared data on behalf of multiple clients. There is 
no need for mutual exclusion of access to the managed data, because it is never accessed 
concurrently. However, the overhead of creating a task merely to serve up some data may be 
excessive. For such applications, Ada 95 provides protected modules. A protected module 
encapsulates a data structure and exports subprograms that operate on it under automatic 
mutual exclusion. It also provides automatic, implicit signaling of conditions between client 
tasks. Again, a protected module can be either a single protected object or a protected type, 
allowing many protected objects to be created. 


A protected module can export only procedures, functions and entries, and its body may 
contain only the bodies of procedures, functions and entries. The protected data is declared 
after private in its specification, but is accessible only within the protected module's 
body. Protected procedures and entries may read and/or write its encapsulated data, and 
automatically exclude each other. Protected functions may only read the encapsulated data, 
so that multiple protected function calls can be concurrently executed in the same protected 
object, with complete safety; but protected procedure calls and entry calls exclude protected 
function calls, and vice versa. Exported entries and subprograms of a protected object are 
executed by its calling task, as a protected object has no independent locus of control. (To 
be honest, optimized object code may reduce the number of context switches below the 
number implied by this naive description.) 


Like a task entry, a protected entry can employ a guard to control admission. This provides 
automatic signaling, and ensures that when a protected entry call is accepted, its guard 
condition is True, so that a guard provides a reliable precondition for the entry body. 


Ex. 5 The following is a simple protected type analogous to the Encapsulated Buffer task 
in Ex. 2. 
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protected type Protected Buffer Type is 
entry Insert (An Item : in Item); 
entry Remove (An Item : out Item); 
private 
Buffer : Item; 
Empty : Boolean :- True; 
end Protected Buffer, Type; 


protected body Protected Buffer Type is 
entry Insert (An Item : in Item) 
when Empty is 
begin 
Buffer :- An Item; 
Empty :- False; 
end Insert; 
entry Remove (An Item : out Item) 
when not Empty is 
begin 
An Item :- Buffer; 
Empty :- True; 
end Remove; 
end Protected Buffer, Type; 











Note how the guards, using the state variable Empty, ensure that messages are alternately 
inserted and removed, and that no attempt can be made to take data from an empty buffer. 
All this is achieved without explicit signaling or mutual exclusion constructs, whether in the 
calling task or in the protected type itself. 


'The notation for calling a protected entry or procedure is exactly the same as that for calling 
a task entry. This makes it easy to replace one implementation of the abstract type by the 
other, the calling code being unaffected. 


Ex. 6 The following task type implements Dijkstra's semaphore ADT, with FIFO scheduling 
of resumed processes. The algorithm will accept calls to both Wait and Signal, so long as 
the semaphore invariant would not be violated. When that circumstance approaches, calls 
to Wait are ignored for the time being. 





task type Semaphore Task Type is 
entry Initialize (N : in Natural); 
entry Wait; 
entry Signal; 

end Semaphore Task Type; 


task body Semaphore Task Type is 
Count : Natural; 
begin 
accept Initialize (N : in Natural) do 
Count :- N; 
end Initialize; 
loop 
select 
when Count > 0 => 
accept Wait do 
Count := Count - 1; 
end Wait; 
or 
accept Signal; 
Count := Count + 1; 
end select; 
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end loop; 
end Semaphore Task Type; 











This task could be used as follows: 





nr Full, nr Free : Semaphore Task Type; 
nr Full.Initialize (0); nr Free.Initialize (nr. Slots); 


nr Free.Wait; nr Full.Signal; 











Alternatively, semaphore functionality can be provided by a protected object, with major 
efficiency gains. 


Ex. 7 The Initialize and Signal operations of this protected type are unconditional, so they 
are implemented as protected procedures, but the Wait operation must be guarded and is 
therefore implemented as an entry. 





protected type Semaphore Protected Type is 
procedure Initialize (N : in Natural); 
entry Wait; 
procedure Signal; 

private 
Count : Natural := 0; 

end Semaphore Protected Type; 


protected body Semaphore Protected Type is 
procedure Initialize (N : in Natural) is 


begin 

Count :- N; 
end Initialize; 
entry Wait 

when Count > O is 
begin 

Count := Count - 1; 
end Wait; 
procedure Signal is 
begin 

Count := Count + 1; 
end Signal; 


end Semaphore Protected Type; 











Unlike the task type above, this does not ensure that Initialize is called before Wait or 
Signal, and Count is given a default initial value instead. Restoring this defensive feature of 
the task version is left as an exercise for the reader. 


21.3 Entry families 
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Entry families 


Sometimes we need a group of related entries. Entry families, indexed by a discrete type?, 
meet this need. 


Ex. 8 This task provides a pool of several buffers. 





type Buffer Id is Integer range 1 .. nr Bufs; 


task Buffer Pool Task is 
entry Insert (Buffer Id) (An Item : in Item); 
entry Remove (Buffer Id) (An Item : out Item); 
end Buffer Pool Task; 


task body Buffer Pool Task is 
Data : array (Buffer Id) of Item; 
Filled : array (Buffer Id) of Boolean := (others => False); 
begin 
loop 
for I in Data'Range loop 
select 
when not Filled(I) => 
accept Insert (I) (An Item : in Item) do 
Data(I) := An Item; 
end Insert; 
Filled(I) := True; 
or 
when Filled(I) => 
accept Remove (I) (An Item : out Item) do 
An Item :- Data(I); 
end Remove; 
Filled(I) := False; 
else 
null; --N.B. "polling" or "busy waiting" 
end select; 
end loop; 
end loop; 
end Buffer_Pool_Task; 


Buffer_Pool_Task.Remove(K) (This_Item) ; 











Note that the busy wait else null is necessary here to prevent the task from being suspended 
on some buffer when there was no call pending for it, because such suspension would delay 
serving requests for all the other buffers (perhaps indefinitely). 


21.4 Termination 


Termination 


Server tasks often contain infinite loops to allow them to service an arbitrary number of 
calls in succession. But control cannot leave a task's master until the task terminates, so 
we need a way for a server to know when it should terminate. This is done by a terminate 
alternative in a selective wait. 





3 http://en.wikibooks.org/wiki/ada/20Programming/2FTypes/23List/200f/20Types 
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task type Terminating Buffer Task Type is 
entry Insert (An Item : in Item); 
entry Remove (An Item : out Item); 
end Terminating Buffer Task Type; 
task body Terminating Buffer Task Type is 
Datum : Item; 
begin 
loop 
select 
accept Insert (An Item : in Item) do 
Datum := An Item; 
end Insert; 
or 
terminate; 
end select; 
select 
accept Remove (An Item : out Item) do 
An Item := Datum; 
end Remove; 
or 
terminate; 
end select; 
end loop; 
end Terminating Buffer Task Type; 











The task terminates when: 


at least one terminate alternative is open, and 

there are no pending calls to its entries, and 

all other tasks of the same master are in the same state (or already terminated), and 
the task's master has completed (i.e. has run out of statements to execute). 


SUI ES 


Conditions (1) and (2) ensure that the task is in a fit state to stop. Conditions (3) and (4) 
ensure that stopping cannot have an adverse effect on the rest of the program, because no 
further calls that might change its state are possible. 


21.5 Timeout 


Timeout 


A task may need to avoid being held up by calling to a slow server. A timed entry call lets a 
client specify a maximum delay before achieving rendezvous, failing which the attempted 
entry call is withdrawn and an alternative sequence of statements is executed. 


Ex. 10 





task Password_Server is 
entry Check (User, Pass : in String; Valid : out Boolean); 
entry Set (User, Pass : in String); 

end Password Server; 


User Name, Password : String (1 .. 8); 
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Put ("Please give your new password:"); 
Get Line (Password); 
select 
Password Server.Set (User Name, Password); 
Put Line ("Done"); 
or 
delay 10.0; 
Put Line ("The system is busy now, please try again later."); 
end select; 











To time out the functionality provided by a task, two distinct entries are needed: one to 
pass in arguments, and one to collect the result. Timing out on rendezvous with the latter 
achieves the desired effect. 


Ex. 11 





task Process Data is 
entry Input (D : in Datum); 
entry Output (D : out Datum); 
end Process, Data; 


Input Data, Output Data : Datum; 


loop 
collect Input Data from sensors; 
Process_Data.Input (Input_Data) ; 
select 
Process_Data.Output (Qutput_Data) ; 
pass Output Data to display task; 
or 
delay 0.1; 
Log Error ("Processing did not complete quickly enough."); 
end select; 
end loop; 











Symmetrically, a delay alternative in a selective wait statement allows a server task to 
withdraw an offer to accept calls after a maximum delay in achieving rendezvous with any 
client. 


Ex. 12 





task Resource Lender is 
entry Get Loan (Period : in Duration); 
entry Give Back; 

end Resource Lender; 


task body Resource Lender is 
Period 0f Loan : Duration; 


begin 
loop 
select 

accept Get Loan (Period : in Duration) do 
Period 0f Loan := Period; 

end Get Loan; 

select 
accept Give Back; 

or 


delay Period 0f Loan; 
Log Error ("Borrower did not give up loan soon 
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enough."); 
end select; 
or 
terminate; 
end select; 
end loop; 
end Resource Lender; 











21.6 Conditional entry calls 


Conditional entry calls 


An entry call can be made conditional, so that it is withdrawn if the rendezvous is not immedi- 
ately achieved. This uses the select statement notation with an else part. Thus the constructs 





select 
Callee.Rendezvous; 
else 
Do something else; 
end select; 











and 





select 

Callee.Rendezvous; 
or 

delay 0.0; 

Do something else; 
end select; 











seem to be conceptually equivalent. However, the attempt to start the rendezvous may 
take some time, especially if the callee is on another processor, so the delay 0.0; may expire 
although the callee would be able to accept the rendezvous, whereas the else construct is 
safe. 


21.7 Requeue statements 


Requeue statements 


A requeue statement allows an accept statement or entry body to be completed while 
redirecting to a different or the same entry queue. The called entry has to share the same 
parameter list or be parameter-less. 


21.8 Scheduling 
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Scheduling 


FIFO, priority, priority inversion avoidance, ... to be completed 


21.9 Interfaces 


Interfaces 


This language feature is only available in Ada 2005 


Task and Protected types can also implement interfaces?. 





type Printable is task interface; 


procedure Input (D : in Printable); 


task Process Data is new Printable with 
entry Input (D : in Datum); 
entry Output (D : out Datum); 

end Process Data; 











21.10 See also 


See also 


21.10.1 Wikibook 


e Ada Programming? 
e Ada Programming/Libraries/Ada.Storage IO 


21.10.2 Ada Reference Manual 
Ada 95 


e Section 9: Tasks and Synchronization “{http://www.adaic.org/resources/add_ 
content/standards/951rm/ARM HTML/RM-9.html) 


Ada 2005 


e 3.9.4 Interface Types ^(http://www.adaic.org/resources/add  content/standards/ 
O5rm/htm1/RM-3-9-4. html} 





http: //en.wikibooks. org/wiki/Ada{,20Programming/2FKeywords/2F interface 
http://en.wikibooks.org/wiki/Ada/20Programming 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Storage_I0 
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e Section 9: 


Tasks and Synchronization “{http://www.adaic.org/resources/add 
content/standards/Obrm/html/RM-9.html) 


21.11 Ada Quality and Style Guide 
Ada Quality and Style Guide 


e Chapter 4: Program Structure 


e 41.9 Tasks “{http://www.adaic.org/resources/add_content/docs/95style/ 
html/sec 4/4-1-9.html) 


e 4.1.10 Protected Types ^(http://www.adaic.org/resources/add content/docs/ 
95style/html/sec, 4/4-1-10.html) 
e Chapter 6: Concurrency’ 


es:Programación en Ada/Tareas® 





7 


http://www.adaic.org/docs/95style/html1/sec_6/toc. html 
8 


http://es.wikibooks.org/wiki/Programaci/F3n/20en/20Ada/2FTareas 
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22 Object Orientation 


22.1 Object orientation in Ada 


Object orientation in Ada 


Object oriented programming consists in building the software in terms of "objects". An 
"object" contains data and has a behavior. The data, normally, consists in constants and 
variables as seen in the rest of this book but could also, conceivably, reside outside the 
program entirely, i.e. on disk or on the network. The behavior consists in subprograms 
that operate on the data. What makes Object Orientation unique, compared to procedural 
programming, is not a single feature but the combination of several features: 


e encapsulation, i.e. the ability to separate the implementation of an object from its 
interface; this in turn separates "clients" of the object, who can only use the object in 
certain predefined ways, from the internals of the object, which have no knowledge of the 
outside clients. 


e inheritance, the ability for one type of objects to inherit the data and behavior (subpro- 
grams) of another, without necessarily needing to break encapsulation; 


e type extension, the ability for an object to add new data components and new subprograms 
on top of the inherited ones and to replace some inherited subprograms with its own 
versions; this is called overriding. 


e polymorphism, the ability for a "client" to use the services of an object without knowing 
the exact type of the object, i.e. in an abstract way. The actual type of the object can 
indeed change at run time from one invocation to the next. 


It is possible to do object-oriented programming in any language, even assembly. However, 
type extension and polymorphism are very difficult to get right without language support. 


In Ada, each of these concepts has a matching construct; this is why Ada supports object- 
oriented programming directly. 


e Packages provide encapsulation; 

e Derived types provide inheritance; 

e Record extensions, described below, provide for type extension; 

e Class-wide types, also described below, provide for polymorphism. 


Ada has had encapsulation and derived types since the first version (MIL-STD-1815 in 1980), 
which led some to qualify the language as "object-oriented" in a very narrow sense. Record 
extensions and class-wide types were added in Ada 95. Ada 2005 further adds interfaces. 
The rest of this chapter covers these aspects. 
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22.1.1 The simplest object: the Singleton 





package Directory is 
function Present (Name Pattern: String) return Boolean; 
generic 
with procedure Visit (Full Name, Phone Number, Address: String; 
Stop: out Boolean); 
procedure Iterate (Name Pattern: String); 
end Directory; 











The Directory is an object consisting of data (the telephone numbers and addresses, presum- 
ably held in an external file or database) and behavior (it can look an entry up and traverse 
all the entries matching a Name Pattern, calling Visit on each). 


A simple package provides for encapsulation (the inner workings of the directory are hidden) 
and a pair of subprograms provide the behavior. 


'This pattern is appropriate when only one object of a certain type must exist; there is, 
therefore, no need for type extension or polymorphism. 


22.1.2 Primitive operations 


For the following, we need the definition of primitive operations: 
The set of primitive operations of a type T consists of those subprograms that: 


e are declared immediately within the same package as the type (not within a nested 
package nor a child package); 

e take a parameter of the type or, for functions, return an object of the type; 

e take an access parameter of the type or, for functions, return an access value of the type. 


(Also predefined operators like equality "=" are primitive operations.) 


An operation can be primitive on two or more types, but only on one tagged type. The 
following example would be illegal if also B were tagged. 





package P is 

type A is tagged private; 

type B is private; 

procedure Proc (This: A; That: B); --primitive on A and B 
end P; 











22.1.3 Derived types 


Type derivation has been part of Ada since the very start. 





package P is 
type T is private; 


function Create (Data: Boolean) return T;  --primitive 
procedure Work (Object : in out T); --primitive 
procedure Work (Pointer: access T); --primitive 
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type Acc T is access T; 
procedure Proc (Pointer: Acc T); --not primitive 
private 
type T is record 
Data: Boolean; 
end record; 
end P; 











The above example creates a type T that contains data (here just a Boolean but it could be 
anything) and behavior consisting of some subprograms. It also demonstrates encapsulation 
by placing the details of the type T' in the private part of the package. 


The primitive operations of T are the function Create, the overloaded procedures 
Work, and the predefined "=" operator; Proc is not primitive, since it has an ac- 
cess type on T as parameter — don't confuse this with an access parameter, as used 
in the second procedure Work. When deriving from T, the primitive operations are inherited. 





with P; 
package Q is 

type Derived is new P.T; 
end Q; 











The type Q.Derived has the same data and the same behavior as P.T; it inherits both the 
data and the subprograms. Thus it is possible to write: 





with Q; 
procedure Main is 
Object: Q.Derived := Q.Create (Data => False); 
begin 
Q.Work (Object); 
end Main; 











Admittedly, the reasons for writing this may seem obscure. The purpose of this kind of code 
is to have objects of types P.T and Q.Derived, which are not compatible: 





Obi: P.T; 
0b2: Q.Derived; 


Obi 
0b1 


0b2; -- illegal 
P.T (0b2); -- but convertible 











This feature is not used very often (it's used e.g. for declaring types reflecting physical 
dimensions) but I present it here to introduce the next step: type extension. 


22.1.4 Type extensions 


Type extensions are an Ada 95 amendment. 


A tagged type provides support for dynamic polymorphism and type extension. A tagged 
type bears a hidden tag that identifies the type at run-time. Apart from the tag, a tagged 
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record is like any other record, so it can contain arbitrary data. 





package Person is 
type Object is tagged 
record 
Name : String (1 .. 10); 
Gender : Gender Type; 
end record; 
procedure Put (0 : Object); 
end Person; 











As you can see, a Person.Object is an object in the sense that it has data and behavior 
(the procedure Put). However, this object does not hide its data; any program unit 
that has a with Person clause can read and write the data in a Person.Object directly. 
This breaks encapsulation and also illustrates that Ada completely separates the con- 
cepts of encapsulation and type. Here is a version of Person.Object that encapsulates its data: 





package Person is 
type Object is tagged private; 
procedure Put (0 : Object); 
private 
type Object is tagged 
record 
Name : String (1 .. 10); 
Gender : Gender_Type; 
end record; 
end Person; 











Because the type Person.Object is tagged, it is possible to create a record extension, which 
is a derived type with additional data. 





with Person; 
package Programmer is 
type Object is new Person.Object with private; 
private 
type Object is new Person.Object with 
record 
Skilled_In : Language_List; 
end record; 
end Programmer; 











The type Programmer .Object inherits the data and behavior, i.e. the type's primitive 
operations, from Person.Object; it is thus possible to write: 





with Programmer; 
procedure Main is 
Me : Programmer .Object; 
begin 
Programmer.Put (Me); 
Me.Put; --equivalent to the above, Ada 2005 only 
end Main; 











So the declaration of the type Programmer .Object, as a record extension of Person.Object, 
implicitly declares a procedure Put that applies to a Programmer. Object. 
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Like in the case of untagged types, objects of type Person and Programmer are convertible. 
However, where untagged objects are convertible in either direction, conversion of tagged 
types only works in the direction to the root. (Conversion away from the root would have 
to add components out of the blue.) Such a conversion is called a view conversion, because 
components are not lost, they only become invisible. 


Extension aggregates have to be used if you go away from the root. 


22.1.5 Overriding 


Now that we have introduced tagged types, record extensions and primitive operations, 
it becomes possible to understand overriding. In the examples above, we introduced 
a type Person.Object with a primitive operation called Put. Here is the body of the package: 





with Ada.Text I0; 
package body Person is 
procedure Put (0 : Object) is 
begin 
Ada.Text IO.Put (0.Name); 
Ada.Text IO.Put (" is a "); 
Ada.Text IO.Put Line (Gender Type'Image (0.Gender)); 
end Put; 
end Person; 











As you can see, this simple operation prints both data components of the record type to 
standard output. Now, remember that the record extension Programmer .Object has an 
additional data member. If we write: 





with Programmer; 
procedure Main is 
Me : Programmer .Object; 
begin 
Programmer.Put (Me); 
Me.Put; --equivalent to the above, Ada 2005 only 
end Main; 











then the program will call the inherited primitive operation Put, which will print the name 
and gender but not the additional data. In order to provide this extra behavior, we must 
override the inherited procedure Put like this: 





with Person; 
package Programmer is 
type Object is new Person.Object with private; 
overriding --Üptional keyword, new in Ada 2005 
procedure Put (0 : Object); 
private 
type Object is new Person.Object with 
record 
Skilled In : Language List; 
end record; 
end Programmer; 


package body Programmer is 
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procedure Put (0 : Object) is 


begin 

Person.Put (Person.Object (0)); --view conversion to the ancestor type 

Put (0.Skilled In); --presumably declared in the same package as Language List 
end Put; 


end Programmer; 











Programmer.Put overrides Person.Put; in other words it replaces it completely. Since 
the intent is to extend the behavior rather than replace it, Programmer.Put calls 
Person.Put as part of its behavior. It does this by converting its parameter from the 
type Programmer.Übject to its ancestor type Person.Object. This construct is a view 
conversion; contrary to a normal type conversion, it does not create a new object and does 
not incur any run-time cost. Of course, it is optional that an overriding operation call its 
ancestor; there are cases where the intent is indeed to replace, not extend, the inherited 
behavior. 


(Note that also for untagged types, overriding of inherited operations is possible. The reason 
why it's discussed here is that derivation of untagged types is done rather seldom.) 


22.1.6 Polymorphism, class-wide programming and dynamic dispatching 


The full power of object orientation is realized by polymorphism, class-wide programming 
and dynamic dispatching, which are different words for the same, single concept. To explain 
this concept, let us extend the example from the previous sections, where we declared a 
base tagged type Person.Object with a primitive operation Put and a record extension 
Programmer .Object with additional data and an overriding primitive operation Put. 


Now, let us imagine a collection of persons. In the collection, some of the persons are 
programmers. We want to traverse the collection and call Put on each person. When the 
person under consideration is a programmer, we want to call Programmer .Put; when the 
person is not a programmer, we want to call Person.Put. This, in essence, is polymorphism, 
class-wide programming and dynamic dispatching. 


Ada implements this concept by means of class-wide types. 


Each tagged type, such as Person.Object, has a corresponding class of types which is the set 
of types comprising the type Person. Object itself and all types that extend Person.Object. 
In our example, this class consists of two types: 


e Person.Object 
e Programmer .Object 


Ada 95 defines the Person.Object'Class attribute to denote the corresponding class-wide 
type. In other words: 





declare 

Someone : Person.Object'Class := ...; --to be expanded later 
begin 

Someone.Put; --dynamic dispatching 
end; 
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The declaration of Someone denotes an object that may be of either type, Person.Object 
or Programmer .Object. Consequently, the call to the primitive operation Put dispatches 
dynamically to either Person.Put or Programmer.Put. 


'The only problem is that, since we don't know whether Someone is a programmer or not, 
we don't know how many data components Someone has, either, and therefore we don't 
know how many bytes Someone takes in memory. For this reason, the class-wide type 
Person.Object'Class is indefinite. It is impossible to declare an object of this type 
without giving some constraint. It is, however, possible to: 


e declare an object of a class-wide with an initial value (as above). The object is then 
constrained by its initial value. 

e declare an access value to such an object (because the access value has a known size); 

e pass objects of a class-wide type as parameters to subprograms 

e assign an object of a specific type (in particular, the result of a function call) to a variable 
of a class-wide type. 


With this knowledge, we can now build a polymorphic collection of persons; in this example 
we will quite simply create an array of access values to persons: 





with Person; 
procedure Main is 
type Person Access is access Person.Object'Class; 
type Array 0f Persons is array (Positive range <>) of Person Access; 


function Read From Disk return Array Of Persons is separate; 


Everyone : constant Array 0f Persons :- Read From Disk; 
begin --Main 
for K in Everyone'Range loop 
Everyone (K).all.Put; --dereference followed by dynamic dispatching 
end loop; 
end Main; 











The above procedure achieves our desired goal: it traverses the array of Persons and calls 
the procedure Put that is appropriate for each person. 


Advanced topic: How dynamic dispatching works 


You don't need to know how dynamic dispatching works in order to use it effectively but, in 
case you are curious, here is an explanation. 


The first component of each object in memory is the tag; this is why objects are of a tagged 
type rather than plain records. The tag really is an access value to a table; there is one table 
for each specific type. The table contains access values to each primitive operation of the 
type. In our example, since there are two types Person.Object and Programmer .Object, 
there are two tables, each containing a single access value. The table for Person.Object 
contains an access value to Person.Put and the table for Programmer.0bject contains an 
access value to Programmer.Put. When you compile your program, the compiler constructs 
both tables and places them in the program executable code. 





1 http://en.wikibooks.org/wiki/ada/20Programming/2FSubtypes/23Indefinite subtype 
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Each time the program creates a new object of a specific type, it automatically sets its tag 
to point to the appropriate table. 


Each time the program calls a primitive operation, the compiler inserts object code that: 


e dereferences the tag to find the table of primitive operations for the specific type of the 
object at hand 

e dereferences the access value to the primitive operation 

e calls the primitive operation. 


When you perform a view conversion to an ancestor type, the compiler performs these two 
dereferences at compile time rather than run time: this is static dispatching; the compiler 
emits code that directly calls the primitive operation of the ancestor type specified in the 
view conversion. 


Redispatching 


Dispatching works on the (hidden) tag of the object. So what happens when a primitive 
operation Op) calls another primitive operation Op2? Which operation will be called when 
Opl is called by dispatching? 





type Root is tagged private; 
procedure Opi (R: Root); 
procedure Op2 (R: Root); 


type Derived is new Root with private; 
-- Derived inherits Opt 


overriding procedure Op2 (D: Derived); 


procedure Opi (R: Root) is 


begin 
Op2 (R); -- not redispatching 
Op2 (Root'Class (R)); -- redispatching 

end Opi; 


D: Derived; 
C: Root'Class := D; 


Opi (D); -- static call 
Opi (CO); -- dispatching call 











In this fragment, Opl is not overridden, whereas Op2 is overridden. The body of Op1 calls 
Op2, thus which Op2 will be called for a call of Op1 with a parameter of type Derived? 


The answer is: Ada gives complete control over dispatching and redispatching. If you want 
redispatching, it has to be required explicitly by converting the parameter to the class-wide 
type again. (Remember: View conversions never lose components, they just hide them. A 
conversion to the class-wide type makes them visible again.) 


Thus the first call of Op1 (statically linked, i.e. not dispatching) calls the inherited Op1 
— and within Opl, the first call to Op2 is therefore also a static call to the inherited Op? 
(there is no redispatching). However the second call, since the parameter R is converted to 
the class-wide type, dispatches to the overriding Op2. 
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The second call of Op1 is a dispatching call to the inherited Op1 and behaves exactly as the 
first. 


To understand what happens here, the implicitly defined inherited Opl is just the parent 
operation called with a view conversion of the parameter: 





procedure Opi (D: Derived) is 
begin 

Opi (Root (R)); -- view conversion 
end Opi; 











Run-time type identification 


Run-time type identification allows the program to (indirectly or directly) query the tag of 
an object at run time to determine which type the object belongs to. This feature, obviously, 
makes sense only in the context of polymorphism and dynamic dispatching, so works only 
on tagged types. 


You can determine whether an object belongs to a certain class of types, or to a specific 
type, by means of the membership test in, like this: 





type Base is tagged private; 
type Derived is new Base with private; 
type Leaf is new Derived with private; 


procedure Explicit_Dispatch (This : in Base'Class) is 


begin 
if This in Leaf then ... end if; 
if This in Derived'Class then ... end if; 


end Explicit_Dispatch; 











Thanks to the strong typing rules of Ada, run-time type identification is in fact rarely 
needed; the distinction between class-wide and specific types usually allows the programmer 
to ensure objects are of the appropriate type without resorting to this feature. 


Additionally, the reference manual defines package Ada.Tags (RM 3.9(6/2)), attribute 
'Tag (RM 3.9(16,18)), and function Ada.Tags.Generic Dispatching Constructor (RM 
3.9(18.2/2)), which enable direct manipulation with tags. 


22.1.7 Creating Objects 


The Language Reference Manual's section on 3.3 Objects and Named Numbers ^(http: //www. 
adaic.org/resources/add content/standards/Obrm/html/RM-3-3.html) states when 
an object is created, and destroyed again. This subsection illustrates how objects are created. 


Objects are created at run time and contain a value of a given type. An objeci 


The LRM section starts, be created and initialized as part of elaborating a declaration, evaluating an alloc 
aggregate, or function call. 
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For example, assume a typical hierarchy of object oriented types: a top-level type Person, a 
Programmer type derived from Person, and possibly more kinds of persons. Each person 
has a name; assume Person objects to have a Name component. Likewise, each Person has 
a Gender component. The Programmer type inherits the components and the operations 
of the Person type, so Programmer objects have a Name and a Gender component, too. 
Programmer objects may have additional components specific to programmers. 


Objects of a tagged type are created the same way as objects of any type. The second LRM 
sentence says, for example, that an object will be created when you declare a variable or a 
constant of a type. For the tagged type Person, 





declare 

P: Person; 
begin 

Text IO. Put Line( "The name is " & P. Name) ; 
end; 











Nothing special so far. Just like any ordinary variable declaration this O-O one is elaborated. 
'The result of elaboration is an object named P of type Person. However, P has only default 
name and gender value components. These are likely not useful ones. One way of giving 
initial values to the object's components is to assign an aggregate. 





declare 

P: Person := ( Name => "Scorsese", Gender => Male) ; 
begin 

Text IO. Put Line( "The name is " & P. Name) ; 
end; 











The parenthesized expression after := is called an aggregate (4.3 Aggregates ^[http://www. 
adaic.org/resources/add content/standards/Ob5rm/html/RM-4-3.html) ). 


Another way to create an object that is mentioned in the LRM paragraph is to call a function. 
An object will be created as the return value of a function call. Therefore, instead of using 
an aggregate of initial values, we might call a function returning an object. 


Introducing proper O-O information hiding, we change the package containing the 
Person type so that Person becomes a private type. To enable clients of the package 
to construct Person objects we declare a function that returns them. (The function 
may do some interesting construction work on the objects. For instance, the aggregate 
above will most probably raise the exception Constraint Error depending on the 
name string supplied; the function can mangle the name so that it matches the decla- 
ration of the component.) We also declare a function that returns the name of Person objects. 





package Persons is 
type Person is tagged private; 
function Make ( Name: String; Sex: Gender Type) return Person; 
function Name ( P: Person) return String; 


private 
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type Person is tagged 


record 
Name : String ( 1 .. 10) ; 
Gender : Gender, Type; 


end record; 


end Persons; 











Calling the Make function results in an object which can be used for initialization. Since the 
Person type is private we can no longer refer to the Name component of P. But there is 
a corresponding function Name declared with type Person making it a socalled primitive 
operation. (The component and the function in this example are both named Name However, 
we can choose a different name for either if we want.) 





declare 

P: Person := Make ( Name => "Orwell", Sex => Male) ; 
begin 

Text IO. Put Line( "The name is " & Name( P) ) ; 
end; 











Objects can be copied into another. The target object is first destroyed. Then the 
component values of the source object are assigned to the corresponding components of the 
target object. In the following example, the default initialized P gets a copy of one of the 
objects created by the Make calls. 





declare 
P: Person; 
begin 
if 2001 > 1984 then 
P := Make ( Name => "Kubrick", Sex => Male) ; 
else 
P := Make ( Name => "Orwell", Sex => Male) ; 
end if; 


Text IO. Put Line( "The name is " & Name( P) ) 
end; 


H 











So far there is no mention of the Programmer type derived from Person. There is no 
polymorphism yet, and likewise initialization does not yet mention inheritance. Before 
dealing with Programmer objects and their initialization a few words about class-wide types 
are in order. 


22.1.8 More details on primitive operations 


Remember what we said before about "Primitive Operations"?. Primitive operations are: 


e subprograms taking a parameter of the tagged type; 
e functions returning an object of the tagged type; 
e subprograms taking a parameter of an anonymous access type to the tagged type; 





2 Chapter 22.1.2 on page 188 
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e In Ada 2005 only, functions returning an anonymous access type to the tagged type; 


Additionally, primitive operations must be declared before the type is frozen (the concept of 
freezing will be explained later): 


Examples: 





package X is 
type Object is tagged null record; 


procedure Primitive 1 (This : in Object); 
procedure Primitive 2 (That : out Object); 
procedure Primitive 3 (Me : in out Object); 


procedure Primitive_4 (Them : access Object); 

function Primitive_5 return Object; 

function Primitive_6 (Everyone : Boolean) return access Object; 
end X; 











All of these subprograms are primitive operations. 


A primitive operation can also take parameters of the same or other types; also, the 
controlling operand does not have to be the first parameter: 





package X is 
type Object is tagged null record; 


procedure Primitive_1 (This : in Object; Number : in Integer); 


procedure Primitive 2 (You : in Boolean; That : out Object); 
procedure Primitive 3 (Me, Her : in out Object); 
end X; 











The definition of primitive operations specifically excludes named access types and 
class-wide types as well as operations not defined immediately in the same declarative 
region. Counter-examples: 





package X is 
type Object is tagged null record; 
type Object Access is access Object; 
type Object Class Access is access Object'Class; 


procedure Not Primitive 1 (This : in 0bject'Class); 
procedure Not Primitive 2 (This : in out Object Access); 
procedure Not Primitive 3 (This : out Object Class Access); 


function Not Primitive 4 return Object'Class; 


package Inner is 
procedure Not Primitive 5b (This : in Object); 
end Inner; 
end X; 
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Advanced topic: Freezing rules 


Freezing rules (http://www.adaic.com/standards/05rm/htm1/RM-13-14.html ARM 
13.14?) are perhaps the most complex part of the Ada language definition; this is be- 
cause the standard tries to describe freezing as unambiguously as possible. Also, that 
part of the language definition deals with freezing of all entities, including complicated 
situations like generics and objects reached by dereferencing access values. You can, however, 
get an intuitive understanding of freezing of tagged types if you understand how dynamic 
dispatching works*. In that section, we saw that the compiler emits a table of primitive 
operations for each tagged type. The point in the program text where this happens is the 
point where the tagged type is frozen, i.e. the point where the table becomes complete. 
After the type is frozen, no more primitive operations can be added to it. 


This point is the earliest of: 


e the end of the package spec where the tagged type is declared 
e the appearance of the first type derived from the tagged type 


Example: 





package X is 


type Object is tagged nullrecord; 
procedure Primitive 1 (This: in Object); 


-- this declaration freezes Object 
type Derived is new Object with null record; 


-- illegal: declared after Object is frozen 
procedure Primitive 2 (This: in Object); 


end X; 











Intuitively: at the point where Derived is declared, the compiler starts a new table of 
primitive operations for the derived type. This new table, initially, is equal to the table of 
the primitive operations of the parent type, Object. Hence, Object must freeze. 


e the declaration of a variable of the tagged type 


Example: 





package X is 


type Object is tagged null record; 
procedure Primitive_1 (This: in Object); 


V: Object; -- this declaration freezes Object 


-- illegal: declared after Object is frozen 
procedure Primitive_2 (This: in Object); 


end X; 














[v 


http://en.wikibooks.org/wiki//20ARM/2013.14 
4 Chapter 22.1.6 on page 193 
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Intuitively: after the declaration of V, it is possible to call any of the primitive operations of 
the type on V. Therefore, the list of primitive operations must be known and complete, i.e. 
frozen. 


e The completion (not the declaration, if any) of a constant of the tagged type: 





package X is 


type Object is tagged null record; 
procedure Primitive 1 (This: in Object); 


-- this declaration does NOT freeze Object 
Deferred Constant: constant Object; 


procedure Primitive 2 (This : in Object); -- OK 
private 


-- only the completion freezes Object 
Deferred Constant: constant Object :- (null record); 


-- illegal: declared after Object is frozen 
procedure Primitive 3 (This: in Object); 


end X; 











22.1.9 New features of Ada 2005 


This language feature is only available in Ada 2005 


Ada 2005 adds overriding indicators, allows anonymous access types in more places and 
offers the object.method notation. 


Overriding indicators 


'The new keyword overriding can be used to indicate whether an operation overrides an 
inherited subprogram or not. Its use is optional because of upward-compatibility with Ada 
95. For example: 





package X is 
type Object is tagged null record; 


function Primitive return access Object; --new in Ada 2005 
type Derived_Object is new Object with null record; 


not overriding --new optional keywords in Ada 2005 


procedure Primitive (This : in Derived_Object); --new primitive operation 
overriding 
function Primitive return access Derived_Object; 

end X; 











The compiler will check the desired behaviour. 
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This is a good programming practice because it avoids some nasty bugs like not overriding 
an inherited subprogram because the programmer spelt the identifier incorrectly, or because 
a new parameter is added later in the parent type. 


It can also be used with abstract operations, with renamings, or when instantiating a 
generic subprogram: 





not overriding 
procedure Primitive X (This : in Object) is abstract; 


overriding 
function Primitive Y return Object renames Some Other Subprogram; 


not overriding 
procedure Primitive Z (This : out Object) 
is new Generic Procedure (Element => Integer); 











Object. Method notation 


We have already seen this notation: 





package X is 
type Object is tagged null record; 


procedure Primitive 1 (This: in Object; That: in Boolean); 
end X; 








with X; 
procedure Main is 
Obj : X.Object; 
begin 
Obj.Primitive (That => True); --Ada 2005 object.method notation 
end Main; 











This notation is only available for primitive operations where the controlling parameter is 
the first parameter. 


22.1.10 Abstract types 


A tagged type can also be abstract (and thus can have abstract operations): 





package X is 
type Object is abstract tagged ...; 
procedure One_Class_Member (This : in Object); 
procedure Another_Class_Member (This : in out Object); 


function Abstract Class Member return Object is abstract; 


end X; 
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An abstract operation cannot have any body, so derived types are forced to override it 
(unless those derived types are also abstract). See next section about interfaces for more 
information about this. 


'The difference with a non-abstract tagged type is that you cannot declare any variable of 
this type. However, you can declare an access to it, and use it as a parameter of a class-wide 
operation. 


22.1.11 Multiple Inheritance via Interfaces 


This language feature is only available in Ada 2005 


Interfaces allow for a limited form of multiple inheritance (taken from Java). On a semantic 
level they are similar to an "abstract tagged null record" as they may have primitive operations 
but cannot hold any data and thus these operations cannot have a body, they are either 
declared abstract or null. Abstract means the operation has to be overridden, null means 
the default implementation is a null body, i.e. one that does nothing. 


An interface is declared with: 





package Printable is 
type Object is interface; 


procedure Class Member 1 (This : in Object) is abstract; 
procedure Class Member 2 (This : out Object) is null; 


end Printable; 











You implement an interface by adding it to a concrete class: 





with Person; 
package Programmer is 


type Object is new Person.Object 
and Printable.Object 
with 
record 
Skilled In : Language List; 
end record; 


overriding 
procedure Class Member 1 (This : in Object); 


not overriding 
procedure New Class Member (This : Object; That : String); 


end Programmer; 











As usual, all inherited abstract operations must be overridden although null subprograms 
ones need not. 
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Such a type may implement a list of interfaces (called the progenitors), but can have only 
one parent. The parent may be a concrete type or also an interface. 





type Derived is new Parent and Progenitor 1 and Progenitor 2 ... with ...; 











22.1.12 Multiple Inheritance via Mix-in 


Ada supports multiple inheritance of interfaces (see above), but only single inheritance of 
implementation. This means that a tagged type can implement multiple interfaces but can 
only extend a single ancestor tagged type. 


This can be problematic if you want to add behavior to a type that already extends another 
type; for example, suppose you have 





type Base is tagged private; 
type Derived is new Base with private; 











and you want to make Derived controlled, i.e. add the behavior that Derived controls its 
initialization, assignment and finalization. Alas you cannot write: 





type Derived is new Base and Ada.Finalization.Controlled with private; --illegal 











since Ada.Finalization for historical reasons does not define interfaces Controlled and 
Limited Controlled, but abstract types. 


If your base type is not limited, there is no good solution for this; you have to go back to 
the root of the class and make it controlled. (The reason will become obvious presently.) 


For limited types however, another solutions is the use of a mix-in: 





type Base is tagged limited private; 
type Derived; 


type Controlled Mix In (Enclosing: access Derived) is 
new Ada.Finalization.Limited Controlled with null record; 


overriding procedure Initialize (This: in out Controlled Mix In); 
overriding procedure Finalize (This: in out Controlled Mix In); 


type Derived is new Base with record 
Mix In: Controlled Mix In (Enclosing -» Derived'Access); --special syntaz here 
--other components here... 

end record; 











This special kind of mix-in is an object with an access discriminant that references its 
enclosing object (also known as Rosen trick). In the declaration of the Derived type, we 
initialize this discriminant with a special syntax: Derived'Access really refers to an a 
access value to the current instance of type Derived. Thus the access discriminant allows 
the mix-in to see its enclosing object and all its components; therefore it can initialize and 
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finalize its enclosing object: 





overriding procedure Initialize (This: in 


begin 
--initialize Enclosing... 
end Initialize; 





out Controlled Mix In) is 


Enclosing: Derived renames This.Enclosing.all; 








and similarly for Finalize. 


'The reason why this does not work for non-limited types is the self-referentiality via the 
discriminant. Imagine you have two variables of such a non-limited type and assign one to 


the other: 





Y; 











In an assignment statement, Adjust is called only after Finalize of the target X and 
so cannot provide the new value of the discriminant. Thus X.Mixin In.Enclosing will 


inevitably reference Y. 


Now let's further extend our hierarchy: 





overriding procedure Initialize (This: in 
overriding procedure Finalize (This: in 





type Further is new Derived with null record; 


out Further); 
out Further); 








Oops, this does not work because there 
so let's quickly add them. 


are no corresponding procedures for Derived, 


yet - 





type Base is tagged limited private; 
type Derived; 


type Controlled Mix In (Enclosing: access 
new Ada.Finalization.Limited Controlled 


overriding procedure Initialize (This: in 
overriding procedure Finalize (This: in 


type Derived is new Base with record 
Mix In: Controlled Mix In (Enclosing => 
--other components here... 

end record; 


not overriding procedure Initialize (This: 
not overriding procedure Finalize (This: 


overriding procedure Initialize (This: in 
overriding procedure Finalize (This: in 





Derived) is 
with null record; 


out Controlled Mix In); 


out Controlled Mix In); 


Derived'Access);  --special syntax here 


out Derived); 
out Derived); 


in 
in 


--sic, they are new 


type Further is new Derived with null record; 


out 
out 


Further); 
Further); 
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We have of course to write not overriding for the procedures on Derived because there is 
indeed nothing they could override. The bodies are 





not overriding procedure Initialize (This: in out Derived) is 
begin 

--initialize Derived... 
end Initialize; 


overriding procedure Initialize (This: in out Controlled Mix In) is 
Enclosing: Derived renames This.Enclosing.all; 

begin 
Initialize (Enclosing); 

end Initialize; 











To our dismay, we have to learn that Initialize/Finalize for objects of type Further 
will not be called, instead those for the parent Derived. Why? 





declare 

X: Further; -- Initialize (Derived (X)) is called here 
begin 

null; 
end; -- Finalize (Derived (X)) is called here 











'The reason is that the mix-in defines the local object Enclosing to be of type Derived 
in the renames-statement above. To cure this, we have necessarily to use the dreaded 
redispatch (shown in different but equivalent notations): 





overriding procedure Initialize (This: in out Controlled Mix In) is 
Enclosing: Derived renames This.Enclosing.all; 

begin 
Initialize (Derived'Class (Enclosing)); 

end Initialize; 


overriding procedure Finalize (This: in out Controlled Mix In) is 
Enclosing: Derived'Class renames Derived'Class (This.Enclosing.all); 
begin 
Enclosing.Finalize; 
end Finalize; 


declare 

X: Further; -- Initialize (X) is called here 
begin 

null; 
end; -- Finalize (X) is called here 











Alternatively (and presumably better still) is to write 





type Controlled Mix In (Enclosing: access Derived'Class) is 
new Ada.Finalization.Limited Controlled with null record; 








Then we automatically get redispatch and can omit the type conversions on Enclosing. 


22.2 Class names 
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Class names 


Both the class package and the class record need a name. In theory they may have the 
same name, but in practice this leads to nasty (because of unintutive error messages) name 
clashes when you use the use clause. So over time three de facto naming standards have 
been commonly used. 


22.2.1 Classes/ Class 


The package is named by a plural noun and the record is named by the corresponding 
singular form. 





package Persons is 


type Person is tagged 
record 
Name : String (1 .. 10); 
Gender : Gender Type; 
end record; 


end Persons; 











This convention is the usually used in Ada's built-in libraries. 


Disadvantage: Some "multiples" are tricky to spell, especially for those of us who aren't 
native English speakers. 


22.2.2 Class/Object 


'The package is named after the class, the record is just named Object. 





package Person is 


type Object is tagged 
record 
Name : String (1 .. 10); 
Gender : Gender Type; 
end record; 


end Person; 











Most UML? and IDLÓ code generators use this technique. 


Disadvantage: You can't use the use clause on more than one such class packages at any 
one time. However you can always use the 'type' instead of the package. 





5 http://en.wikipedia.org/wiki/Unified/20Modeling/20Language 
6 http://en.wikipedia.org/wiki/Interface/20description/20language 
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22.2.3 Class/Class Type 


The package is named after the class, the record is postfixed with _ Type. 





package Person is 


type Person_Type is tagged 
record 
Name : String (1 .. 10); 
Gender : Gender_Type; 
end record; 


end Person; 











Disadvantage: lots of ugly "_Type" postfixes. 


22.3 Object-Oriented Ada for C++ programmers 
Object-Oriented Ada for C++ programmers 


In C++, the construct 





class C { 
virtual void vO; 
void wO; 
static void u(); 
ks 











is strictly equivalent to the following in Ada: 





package P is 
type C is tagged null record; 


procedure V (This : C); --primitive operation, will be inherited upon derivation 
procedure W (This : C'Class);  --not primitive, will not be inherited upon derivation 
procedure U; 

end P; 











In C++, member functions implicitly take a parameter this which is of type C*. In Ada, 
all parameters are explicit. As a consequence, the fact that u() does not take a parameter 
is implicit in C++ but explicit in Ada. 


In C++, this is a pointer. In Ada, the explicit This parameter does not have to be a 
pointer; all parameters of a tagged type are implicitly passed by reference anyway. 


22.3.1 Static dispatching 


In C++, function calls dispatch statically in the following cases: 


e the target of the call is an object type 
e the member function is non-virtual 
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For example: 





C object; 
object.vO; 
object.wO; 








both dispatch statically. In particular, the static dispatch for v() may be confusing; this is 
because object is neither a pointer nor a reference. Ada behaves exactly the same in this 
respect, except that Ada calls this static binding rather than dispatching: 





declare 
Object : P.C; 
begin 
Übject.V; --statically bound 
Object.W; --statically bound 
end; 











22.3.2 Dynamic dispatching 
In C++, a function call dispatches dynamically if the two following conditions are met 
simultaneously: 


e the target of the call is a pointer or a reference 
e the member function is virtual. 


For example: 





C* object; 

object->v(); // dynamic dispatch 

object->w(); // static, non-virtual member function 
object->u(); // illegal: static member function 
C::uQ; // static dispatch 











In Ada, a primitive subprogram call dispatches (dynamically) if and only if: 
e the target object is of a class-wide type; 


Note: In Ada vernacular, the term dispatching always means dynamic. 


For example: 





declare 
Object : P.C'Class := ...; 
begin 
P.V (Object); --dispatching 
P.W (Object); --statically bound: not a primitive operation 
P.U; --statically bound 
end; 











As can be seen there is no need for access types or pointers to do dispatching in Ada. In 


Ada, tagged types are always passed by-reference to subprograms without the need for explicit 
access values. 
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Also note that in C++, the class serves as: 


e the unit of encapsulation (Ada uses packages and visibility for this) 
e the type, like in Ada. 


As a consequence, you call C::u() in C++ because u() is encapsulated in C, but P.U in Ada 
since U is encapsulated in the package P, not the type C. 


22.3.3 Class-wide and specific types 


The most confusing part for C++ programmers is the concept of a "class-wide type". To 
help you understand: 





e pointers and references in C++ are really, implicitly, class-wide; 
e object types in C++ are really specific; 
e C++ provides no way to declare the equivalent of: 





type C Specific Access is access C; 





e C++ provides no way to declare the equivalent of: 





type C Specific Access One is access C; 
type C Specific Access Two is access C; 











which, in Ada, are two different, incompatible types, possibly allocating their memory from 
different storage pools! 


e In Ada, you do not need access values for dynamic dispatching. 

e In Ada, you use access values for dynamic memory management (only) and class-wide 
types for dynamic dispatching (only). 

e In C++, you use pointers and references both for dynamic memory management and for 
dynamic dispatching. 

e In Ada, class-wide types are explicit (with 'Class). 

e In C++, class-wide types are implicit (with * or &). 


22.3.4 Constructors 


in C++, a special syntax declares a constructor: 





class C 4 
C(/* optional parameters */); // constructor 


33 











A constructor cannot be virtual. A class can have as many constructors, differentiated by 
their parameters, as necessary. 


Ada does not have such constructors. Perhaps they were not deemed necessary since in Ada, 
any function that returns an object of the tagged type can serve as a kind of constructor. 
This is however not the same as a real constructor like the C++ one; this difference is 
most striking in cases of derivation trees (see Finalization below). The Ada constructor 
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subprograms do not have to have a special name and there can be as many constructors as 
necessary; each function can take parameters as appropriate. 





package P is 
type T is tagged private; 


function Make return T; -- constructor 
function To T (From: Integer) return T; -- another constructor 
-- procedure Make (This: out T); -- not a constructor 
private 
end P; 











If an Ada constructor function is also a primitive operation (as in the example above), it 
becomes abstract upon derivation and has to be overridden if the derived type is not itself 
abstract. If you do not want this, declare such functions in a nested scope. 


In C++, one idiom is the copy constructor and its cousin the assignment operator: 





class C { 

C(const C& that); // copies "that" into "this" 

C& operator- (const C& right); // assigns "right" to "this", 
which is "left" 
$; 











This copy constructor is invoked implicitly on initialization, e.g. 





7 b; // calls the copy constructor 


c;  // calls the assignment operator 











Ada provides a similar functionality by means of controlled types. A controlled type is one 
that extends the predefined type Ada.Finalization.Controlled: 





with Ada.Finalization; 
package P is 
type T is new Ada.Finalization.Controlled with private; 


function Make return T; -- constructor 
private 

type T is ... end record; 

overriding procedure Initialize (This: in out T); 

overriding procedure Adjust (This: in out T); -- copy contructor 
end P; 











Note that Initialize is not a constructor; it resembles the C++ constructor in some way, but 
is also very different. Suppose you have a type T1 derived from T with an appropriate 
overriding of Initialize. A real constructor (like the C++ one) would automatically first 
construct the parent components (T), then the child components. In Ada, this is not 
automatic. In order to mimic this in Ada, we have to write: 





procedure Initialize (This: in out T1) is 
begin 
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Initialize (T (This)); -- Don't forget this part! 
-- handle the new components here 
end Initialize; 











'The compiler inserts a call to Initialize after each object of type T' is allocated when no 
initial value is given. It also inserts a call to Adjust after each assignment to the object. 
'Thus, the declarations: 





dd 
ii 
> 











will: 


e allocate memory for A 

e call Initialize (A) 

e allocate memory for B 

e copy the contents of X to B 
e call Adjust (B) 


Initialize (B) will not be called because of the explicit initialization. 
So, the equivalent of a copy constructor is an overriding of Adjust. 


If you would like to provide this functionality to a type that extends another, non-controlled 
type, see "Multiple Inheritance"’. 


22.3.5 Destructors 


In C++, a destructor is a member function with only the implicit this parameter: 





class C 4 
virtual ^CO; // destructor 


} 











While a constructor cannot be virtual, a destructor must be virtual. Unfortunately, the rules 
of the C++ language do not enforce this, so it is quite easy for a programmer to wreak 
havoc in their programs by simply forgetting the keyword virtual. 


In Ada, the equivalent functionality is again provided by controlled types, by overriding the 
procedure Finalize: 





with Ada.Finalization; 
package P is 
type T is new Ada.Finalization.Controlled with private; 


function Make return T; -- constructor 
private 
type T is ... end record; 














7 Chapter 22.4.2 on page 217 
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overriding procedure Finalize (This: in out T); -- destructor 
end P; 











Because Finalize is a primitive operation, it is automatically "virtual"; you cannot, in Ada, 
forget to make a destructor virtual. 


22.3.6 Encapsulation: public, private and protected members 


In C++, the unit of encapsulation is the class; in Ada, the unit of encapsulation is the 
package. This has consequences on how an Ada programmer places the various components 
of an object type. 





class C 4 
public: 

int a; 

void public procO; 
protected: 

int b; 

int protected_func(); 
private: 

bool c; 

void private procO; 


3; 











A way to mimic this C++ class in Ada is to define a hierarchy of types, where the base type 
is the public part, which must be abstract so that no stand-alone objects of this base type 
can be defined. It looks like so: 





private with Ada.Finalization; 
package CPP is 
type Public_Part is abstract tagged record -- no objects of this type 
A: Integer; 
end record; 
procedure Public_Proc (This: in out Public_Part) ; 


type Complete_Type is new Public_Part with private; 


-- procedure Public Proc (This: in out Complete Type); -- 
inherited, implicitly defined 


private -- visible for children 


type Private Part; -- declaration stub 
type Private Part Pointer is access Private Part; 


type Private Component is new Ada.Finalization.Controlled with record 
P: Private Part Pointer; 
end record; 


overriding procedure Initialize (X: in out Private Component); 
overriding procedure Adjust (X: in out Private Component); 
overriding procedure Finalize (X: in out Private Component); 
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type Complete, Type is new Public Part with record 
B: Integer; 
P: Private Component; -- must be controlled to avoid storage 
leaks 
end record; 


not overriding procedure Protected Proc (This: Complete Type); 


end CPP; 











'The private part is defined as a stub only, its completion is hidden in the body. In order 
to make it a component of the complete type, we have to use a pointer since the size of 
the component is still unknown (the size of a pointer is known to the compiler). With 
pointers, unfortunately, we incur the danger of memory leaks, so we have to make the private 


component controlled. 


For a little test, this is the body, where the subprogram bodies are provided with identifying 


prints: 





with Ada.Unchecked_Deallocation; 
with Ada.Text I0; 


package body CPP is 


procedure Public Proc (This: in out Public Part) is -- primitive 
begin 

Ada.Text IO.Put Line ("Public Proc" € Integer'Image (This.A)); 
end Public Proc; 


type Private Part is record -- complete declaration 
C: Boolean; 
end record; 


overriding procedure Initialize (X: in out Private Component) is 
begin 

X.P := new Private Part'(C => True); 

Ada.Text IO.Put Line ("Initialize " & Boolean'Image (X.P.C)); 
end Initialize; 


overriding procedure Adjust (X: in out Private Component) is 


begin 
Ada.Text IO.Put Line ("Adjust " & Boolean'Image (X.P.C)); 
X.P :- new Private Part'(C -» X.P.C); -- deep copy 

end Adjust; 


overriding procedure Finalize (X: in out Private Component) is 
procedure Free is new Ada.Unchecked Deallocation (Private Part, 
Private Part Pointer); 


begin 
Ada.Text IO.Put Line ("Finalize " & Boolean'Image (X.P.C)); 
Free (X.P); 


end Finalize; 


end Private Proc; 


not overriding procedure Protected Proc (This: Complete Type) is 
X: Complete Type :- This; 





procedure Private Proc (This: in out Complete Type) is -- not primitive 
begin 
Ada.Text IO.Put Line ("Private Proc" € Integer'Image (This.A) E 
Integer'Image (This.B) & ' ' & Boolean'Image (This.P.P.C)); 


-- primitive 
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begin 
Ada.Text IO.Put Line ("Protected Proc" & Integer'Image (This.A) 
& Integer'Image (This.B)); 
Private Proc (X); 
end Protected Proc; 


end CPP; 











We see that, due to the construction, the private procedure is not a primitive operation. 


Let's define a child class so that the protected operation can be reached: 





package CPP.Child is 
procedure Do It (X: Complete Type); -- not primitive 


end CPP.Child; 











A child can look inside the private part of the parent and thus can see the protected procedure: 





with Ada.Text I0; 
package body CPP.Child is 


procedure Do It (X: Complete Type) is 
begin 
Ada.Text IO.Put Line ("Do It" & Integer'Image (X.A) & 
Integer'Image (X.B)); 
Protected Proc (X); 
end Do It; 


end CPP.Child; 








This is a simple test program, its output is shown below. 





with CPP.Child; 
use CPP.Child, CPP; 


procedure Test CPP is 
X, Y: Complete Type; 
begin 


= +1; 
kk: 


X.A 
YA: 
Public_Proc (X); Do_It (X); 
Public_Proc (Y); Do_It (Y); 
X := Y; 


Public Proc (X); Do It (X); 


end Test CPP; 
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'This is the commented output of the test program: 





Initialize TRUE Test CPP: Initialize X 
Initialize TRUE and Y 

Public Proc 1 Public Proc (X): A=1 

Do It 1-1073746208 Do It (X): B 
uninitialized 

Adjust TRUE Protected Proc (X): Adjust 


local copy X of This 
Protected Proc 1-1073746208 


Private Proc 1-1073746208 TRUE | Private Proc on local 
copy of This 

Finalize TRUE Protected Proc (X): 
Finalize local copy X 

Public, Proc-1 ditto for Y 


Do It-1 65536 

Adjust TRUE 

Protected Proc-1 65536 
Private Proc-1 65536 TRUE 
Finalize TRUE 





Finalize TRUE Assignment: Finalize target 
X.P.C 

Adjust TRUE Adjust: deep copy 
Public, Proc-1i again for X, i.e. copy of Y 


Do It-1 65536 

Adjust TRUE 

Protected Proc-1 65536 
Private Proc-1 65536 TRUE 
Finalize TRUE 

Finalize TRUE Finalize Y 
Finalize TRUE and X 




















You see that a direct translation of the C++ behaviour into Ada is difficult, if feasible at 
all. Methinks, the primitive Ada subprograms corresponds more to virtual C++ methods 
(in the example, they are not). Each language has its own idiosyncrasies which have to be 
taken into account, so that attempts to directly translate code from one into the other may 
not be the best approach. 


22.3.7 De-encapsulation: friends and stream input-output 


In C++, a friend function or class can see all members of the class it is a friend of. Friends 
break encapsulation and are therefore to be discouraged. In Ada, since packages and not 
classes are the unit of encapsulation, a "friend" subprogram is simply one that is declared in 
the same package as the tagged type. 


In C++, stream input and output are the particular case where friends are usually necessary: 





#include <iostream> 
class C { 
public: 
cO; 
friend ostream& operator<<(ostream& output, C& arg); 
private: 
int a, b; 
bool c; 


3; 
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*include <iostream> 
int main() { 
C object; 
cout «« object; 
return 0; 


3; 











Ada does not need this construct because it defines stream input and output operations by 
default: 





package P is 
pragma Elaborate_Body; -- explained below 
type C is tagged private; 
private 
type C is tagged record 
A, B : Integer; 
C : Boolean; 
end record; 
end P; 








with Ada Test IO. Text, Streams; 
with P; 
procedure Main is 

Object : P.C; 
begin 

P.C'Output (Stream => Ada.Text IO.Text Streams.Stream 
(Ada.Text IO.Default Output), 

Item => Object); 

end Main; 











By default, the Output attribute sends the tag of the object to the stream then calls the 
more basic Write attribute, which sends the components to the stream in the same order as 
the declaration, i.e. A, B then C. It is possible to override the default implementation of the 
Input, Output, Read and Write attributes like this: 





with Ada.Streams; 
package body P is 
procedure My_Write (Stream : not null access 
Ada.Streams.Root_Stream_Type'Class; 
Item : in C) is 
begin 
-- The default is to write A then B then C; here we change the 
ordering. 
Boolean'Write (Stream, Item.C); 
Integer'Write (Stream, Item.B); 
Integer'Write (Stream, Item.A); 
end My Write; 


for C'Write use My Write; -- override the default attribute 
end P; 











In the above example, P.C'output calls P.C'Write which is overridden in the body of the 
package. Since the specification of package P does not define any subprograms, it does not 
normally need a body, so a package body is forbidden. The pragma Elaborate Body tells 
the compiler that this package does have a body that is needed for other reasons. 
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Note that the stream IO attributes are not primitive operations of the tagged type; this is 
also the case in C++ where the friend operators are not, in fact, member functions of the 


type. 


22.3.8 Terminology 

















Ada C++ 

Package class (as a unit of encapsulation) 

Tagged type class (of objects) (as a type) (not pointer or 
reference, which are class-wide) 

Primitive operation virtual member function 

Tag pointer to the virtual table 





Class (of types) - 
Class-wide type - 























Class-wide operation static member function 
Access value to a specific tagged - 

type 

Access value to a class-wide type Pointer or reference to a class 





22.4 See also 


See also 


22.4.1 Wikibook 


e Ada Programming? 

e Ada Programming/Types/record” 
e record!” 

e interface!! 

e tagged!? 


22.4.2 Wikipedia 


e Object-oriented programming? 





8 http://en.wikibooks.org/wiki/Ada/20Programming 

9 Chapter 12 on page 91 

10  http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Frecord 

11  http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Finterface 
12  http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Ftagged 

13  http://en.wikipedia.org/wiki/Übject-oriented/A20programming 
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22.4.3 Ada Reference Manual 


Ada 95 


3.8 Record Types “(http://www.adaic.org/resources/add_content/standards/ 
951rm/ARM HTML/RM-3-8.html) 

3.9 Tagged Types and Type Extensions “{http://www.adaic.org/resources/add_ 
content/standards/951rm/ARM HTML/RM-3-9.html) 

3.9.1 Type Extensions ^[http://www.adaic.org/resources/add  content/standards/ 
951rm/ARM_HTML/RM-3-9-1.htm1} 

3.9.2 Dispatching Operations of Tagged Types ^(http://www.adaic.org/resources/ 
add content/standards/951rm/ARM HTML/RM-3-9-2.html) 

3.9.3 Abstract Types and Subprograms “{http://www.adaic.org/resources/add_ 
content/standards/951rm/ARM HTML/RM-3-9-3.html) 

3.10 Access Types ^[http://www.adaic.org/resources/add  content/standards/ 
951rm/ARM HTML/RM-3-10.html) 


Ada 2005 


3.8 Record Types “(http://www.adaic.org/resources/add_content/standards/ 
Obrm/html/RM-3-8.html) 

3.9 Tagged Types and Type Extensions “{http://www.adaic.org/resources/add_ 
content/standards/05rm/htm1/RM-3-9.htm1} 

3.9.1 Type Extensions ^[http://www.adaic.org/resources/add content/standards/ 
O5rm/html/RM-3-9-1.html) 

3.9.2 Dispatching Operations of Tagged Types ^(http://www.adaic.org/resources/ 
add_content/standards/05rm/htm1/RM-3-9-2.htm1} 

3.9.3 Abstract Types and Subprograms “{http://www.adaic.org/resources/add_ 
content/standards/05rm/htm1/RM-3-9-3.htm1} 

3.9.4 Interface Types ^(http://www.adaic.org/resources/add content/standards/ 
O5rm/html/RM-3-9-4.html) 

3.10 Access Types ^[http://www.adaic.org/resources/add  content/standards/ 
O5rm/html/RM-3-10.html) 


22.4.4 Ada Quality and Style Guide 


Chapter 9: Object-Oriented Features “{http://www.adaic.org/resources/add_ 
content/docs/95style/html/sec 9/] 


es:Programación en Ada/Tipos etiquetados!4 





14 


http://es.wikibooks. org/wiki/Programaci/F3n/20en/,20Ada/,2FTipos/,20etiquetados 
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23 New in Ada 2005 


This is an overview of the major features that are available in Ada 2005, the version of 
the Ada standard that was accepted by ISO in January 2007 (to differentiate it from its 
predecessors Ada 83! and Ada 95?, the informal name Ada 2005 is generally agreed on). For 
the rationale and a more detailed (and very technical) description, see the Amendment? 
to the Ada Reference Manual following the links to the last version of every Ada Issue 
document (AI). 


Although the standard is now published, not all compilers will be able to handle it. Many 
of these additions are already implemented by the following Free Software* compilers: 


e GNAT GPL Edition? 
e GCC 4.19 
e GNAT Pro 6.0.2” (the AdaCore supported version) is a complete implementation. 


After downloading and installing any of them, remember to use the -gnat05 switch when 
compiling Ada 2005 code. Note that Ada 2005 is the default mode in GNAT GPL 2007 
Edition. 


23.1 Language features 


Language features 


23.1.1 Character set 


Not only does Ada 2005 now support a new 32-bit character type — called Wide Wide - 
Character — but the source code itself may be of this extended character set as well. Thus 
Russians and Indians, for example, will be able to use their native language in identifiers 
and comments. And mathematicians will rejoice: The whole Greek and fractur character 
sets are available for identifiers. For example, Ada.Numerics? will be extended with a new 
constant: 





http://en.wikibooks.org/wiki/Ada/20Programming/2FAda%/2083 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAda/2095 
http://www.ada-auth. org/AI-XREF .HTML#Amend_Doc 
http://en.wikipedia.org/wiki/Free/20Software 

http: //libre.adacore.com/ 

http://gcc.gnu.org/ 

http: //www.adacore.com/home/gnatpro/ 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Numerics 


OO —J On Ou Gä Mä Fa 
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m : constant := Pi; 











This is not a new idea — GNAT? always had the -gnatic compiler option to specify the 
character set http://gcc.gnu.org/onlinedocs/gnat ugn unw/Character-Set-Control. 
html. But now this idea has become standard, so all Ada compilers will need to support 
Unicode 4.0!° for identifiers — as the new standard requires. 


See also: 


e AI95-00285-01 Support for 16-bit and 32-bit characters ^[http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00285.TXT) 

e AI95-00388-01 Add Greek pi to Ada.Numerics ^(http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00388.TXT) 


23.1.2 Interfaces 


Interfaces allow for a limited form of multiple inheritance similar to Java and C#. 
You find a full description here: Ada Programming/OO!!. 
See also: 


e AI95-00251-01 Abstract Interfaces to provide multiple inheritance ^[http://www. 
ada-auth.org/cgi-bin/cvsweb.cgi/AIs/AI-00251.TXT) 

e AI95-00345-01 Protected and task interfaces ^[http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00345.TXT) 


23.1.3 Union 


In addition to Ada's safe variant record an unchecked C style union is now available. 
You can find a full description here: Ada Programming/Types/record#Union!?. 
See also: 


e AI95-00216-01 Unchecked unions -- variant records with no run-time discriminant ^[http: 
/ /www .ada-auth.org/cgi-bin/cvsweb.cgi/AIs/AI-00216.TXT) 

e Annex B.3.3 Pragma Unchecked Union “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-B-3-3.html]) 





9 http://en.wikipedia.org/wiki/GNAT 

10  http://en.wikipedia.org/wiki/Unicode 
11 Chapter 22.4.2 on page 217 

12 Chapter 12.6 on page 95 
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23.1.4 With 


The with statement got a massive upgrade. First there is the new limited with!? which 
allows two packages to with each other. Then there is private with!^ to make a package only 
visible inside the private part of the specification. 


See also: 


e AI95-00217-01 Limited With Clauses “{http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00217 . TXT} 

e AI95-00262-01 Access to private units in the private part ^(http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00262.TXT} 


23.1.5 Access types 
Not null access 


An access type definition can specify that the access type can never be null. 


See Ada Programming/Types/access##Not null access!?. 


See also: AI95-00231-01 Access-to-constant parameters and null-excluding access subtypes 
^(http://www.ada-auth.org/cgi-bin/cvsweb.cgi/AIs/AI-00231.TXT) 


Anonymous access 


'The possible uses of anonymous access types are extended. They are allowed virtually in 
every type or object definition, including access to subprogram parameters. Anonymous 
access types may point to constant objects as well. Also, they could be declared to be not 
null. 


With the addition of the following operations in package Standard , it is possible to test the 
equality of anonymous access types. 





function "-" (Left, Right : universal access) return Boolean; 
function "/-"(Left, Right : universal access) return Boolean; 











See Ada Programming /Types/access#Anonymous access!6. 


See also: 


e AI95-00230-01 Generalized use of anonymous access types ^ (http: //www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00230.TXT} 

e AI95-00385-01 Stand-alone objects of anonymous access types “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00385 .TXT} 





13 Chapter 17.3.3 on page 138 
14 Chapter 17.3.2 on page 138 
15 Chapter 13.10.1 on page 110 
16 Chapter 13.4 on page 103 
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e AI95-00318-01 Limited and anonymous access return types “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00318.TXT} 


23.2 Language library 
Language library 


23.2.1 Containers 


A major addition to the language library is the generic packages for containers. If you are 
familiar with the C++ STL, you will likely feel very much at home using Ada . One thing, 
though: Ada is a block structured language. Many ideas of how to use the STL employ 
this feature of the language. For example, local subprograms can be supplied to iteration 
schemes. 


The original Ada Issue text AI95-00302-01 Container library ^(http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00302.TXT} has now been transformed into A.18 Contain- 
ers “{http://www.adaic.org/resources/add_content/standards/05rm/htm1/RM-A-18. 
html). 


If you know how to write Ada programs, and have a need for vectors, lists, sets, or maps 
(tables), please have a look at the AI95-00302-01 AI Text ^(http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00302.TXT} mentioned above. There is an /ezample section 
in the text explaining the use of the containers in some detail. Matthew Heaney provides 
a number of demonstration programs with his reference implementation of AI-302 (Ada ) 
which you can find at tigris!”. 


In Ada Programming/Containers!$ you will find a demo using containers. 
8 8 


Historical side note: The C++ STL draws upon the work of David R. Musser and 
Alexander A. Stepanov. For some of their studies of generic programming, they had been 
using Ada 83. The Stepanov Papers Collection!” has a few publications available. 


23.2.2 Scan Filesystem Directories and Environment Variables 


See also: 


e AI95-00248-01 Directory Operations ^[http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00248.TXT) 

e AI95-00370-01 Environment variables ^(http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00370.TXT) 





17  http://charles.tigris.org 
18 Chapter 24 on page 231 
19 http://www.stepanovpapers.com/ 
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23.2.3 Numerics 


Besides the new constant of package Ada.Numerics (see Character Set?? above), the most 
important addition are the packages to operate with vectors and matrices. 


See also: 


e AI95-00388-01 Add Greek pi (x) to Ada.Numerics ^[http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00388.TXT) 

e AI95-00296-01 Vector and matrix operations “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/A1-00296.TXT) 


(Related note on Ada programming tools: AI-388 contains an interesting assessment of how 
compiler writers are bound to perpetuate the lack of handling of international characters in 
programming support tools for now. As an author of Ada programs, be aware that your 
tools provider or Ada consultant could recommend that the program text be 7bit ASCII 
only.) 


23.3 Real-Time and High Integrity Systems 
Real-Time and High Integrity Systems 


See also: 


e AI95-00297-01 Timing events ^(http://www.ada-auth.org/cgi-bin/cvsweb.cgi/AIs/ 
AI-00297.TXT) 

e A195-00307-01 Execution-Time Clocks ^([http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00307.TXT) 

e AI95-00354-01 Group execution-time budgets “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00354.TXT) 

e AI95-00266-01 Task termination procedure ^[http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00266.TXT) 

e AI95-00386-01 Further functions returning Time Span values “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00386.TXT} 


23.3.1 Ravenscar profile 


See also: 


e AI95-00249-01 Ravenscar profile for high-integrity systems “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00249 .TXT} 

e AI95-00305-01 New pragma and additional restriction identifiers for real-time systems 
“{http://www.ada-auth. org/cgi-bin/cvsweb.cgi/AIs/AI-00305.TXT} 

e AI95-00347-01 Title of Annex H *{http://www.ada-auth.org/cgi-bin/cvsweb.cgi/ 
AIs/AI-00347 . TXT} 





20 Chapter 23.1.1 on page 219 
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e AI95-00265-01 Partition Elaboration Policy for High-Integrity Systems “{http://www. 
ada-auth.org/cgi-bin/cvsweb.cgi/AIs/AI1-00265.TXT) 


23.3.2 New scheduling policies 


See also: 


e AI95-00355-01 Priority Specific Dispatching including Round Robin ^[http://www. 
ada-auth.org/cgi-bin/cvsweb.cgi/AIs/AI-00355.TXT) 

e AI95-00357-01 Support for Deadlines and Earliest Deadline First Scheduling ^1[http: 
//www.ada-auth. org/cgi-bin/cvsweb.cgi/AIs/AI-00357.TXT} 

e AI95-00298-01 Non-Preemptive Dispatching “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/A1-00298.TXT) 


23.3.3 Dynamic priorities for protected objects 


See also: AI95-00327-01 Dynamic ceiling priorities ^(http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00327.TXT) 


23.4 Summary of what's new 


Summary of what's new 


23.4.1 New keywords 


Added 3 keywords (72 total) 


e interface 
e overriding 
e synchronized 


23.4.2 New pragmas 


Added 11 pragmas: 


e pragma 
e pragma 
e pragma 
e pragma 
e pragma 
e pragma 
e pragma 
e pragma 
e pragma 
e pragma 
e pragma 
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23.4.3 New attributes 


Added 7 attributes: 


e Machine Rounding 
e Mod 

e Priority 

e Stream_ Size 

e Wide Wide Image 
e Wide Wide Value 

e Wide Wide Width 


23.4.4 New packages 


e Assertions: 
e Ada.Assertions 


e Container library: 
e Ada.Containers 
e Ada.Containers. Vectors 
e Ada.Containers.Doubly Linked Lists 
e Ada.Containers.Generic Array Sort (generic procedure) 
e Ada.Containers.Generic Constrained Array Sort (generic procedure) 
e Ada.Containers.Hashed Maps 
e Ada.Containers.Ordered Maps 
e Ada.Containers.Hashed Sets 
e Ada.Containers.Ordered_ Sets 
e Ada.Containers.Indefinite Vectors 
e Ada Container Indefinite Doubly Linked Lists 
e Ada.Containers.Indefinite Hashed Maps 
e Ada.Containers.Indefinite Ordered Maps 
e Ada.Containers.Indefinite Hashed Sets 
e Ada.Containers.Indefinite Ordered Sets 


e Vector and matrix manipulation: 
e Ada.Numerics.Real Arrays 
e Ada.Numerics.Complex Arrays 
e Ada.Numerics.Generic Real Arrays 
e Ada.Numerics.Generic Complex Arrays 


e General OS facilities: 
e Ada.Directories 
e Ada.Directories.Information 
e Ada.Environment Variables 


e String hashing: 
e Ada.Strings.Hash (generic function) 


e Ada.Strings.Fixed.Hash (generic function) 
e Ada.Strings.Bounded.Hash (generic function) 
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e Ada.Strings. Unbounded.Hash (generic function) 

e Ada.Strings.Wide Hash (generic function) 

e Ada.Strings.Wide Fixed.Wide Hash (generic function) 

e Ada.Strings.Wide Bounded.Wide Hash (generic function) 

e Ada.Strings. Wide Unbounded.Wide Hash (generic function) 

e Ada.Strings. Wide Wide Hash (generic function) 

e Ada.Strings. Wide Wide Fixed.Wide Wide Hash (generic function) 

e Ada.Strings. Wide Wide Bounded.Wide Wide Hash (generic function) 

e Ada.Strings. Wide Wide Unbounded.Wide Wide Hash (generic function) 


e Time operations: 
e Ada.Calendar.Time Zones 
e Ada.Calendar.Arithmetic 
e Ada.Calendar.Formatting 


e Tagged types: 
e Ada.Tags.Generic Dispatching Constructor (generic function) 


e Text packages: 
e Ada.Complex Text IO 
e Ada.Text IO.Bounded IO 
e Ada.Text IO.Unbounded IO 
e Ada Wide Text IO.Bounded IO 
e Ada Wide Text IO.Unbounded IO 
e Ada Wide Characters 
e Ada. Wide Wide Characters 


e Wide Wide Character packages: 
e Ada.Strings. Wide Wide Bounded 
e Ada.Strings.Wide Wide Fixed 
e Ada.Strings.Wide Wide Maps 
e Ada.Strings.Wide Wide Maps.Wide Wide Constants 
e Ada.Strings. Wide Wide Unbounded 
e Ada.Wide Wide Text IO 
e Ada Wide Wide Text IO.Complex IO 
e Ada Wide Wide Text IO.Editing 
e Ada.Wide Wide Text IO.Text Streams 
e Ada.Wide Wide Text IO.Unbounded IO 


e Execution-time clocks: 
e Ada.Execution Time 
e Ada.Execution Time.Timers 
e Ada.Execution Time.Group Budgets 


e Dispatching: 
e Ada Dispatching 
e Ada Dispatching KIDb 
e Ada Dispatching Round Robin 


e Timing events: 
e Ada Real Time.Timing Events 
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e Task termination procedures: 
e Ada.Task Termination 


23.5 See also 


See also 


23.5.1 Wikibook 


Ada Programming/Ada 83?! 

Ada Programming/Ada 95 

Ada Programming/Ada 2012? 

Ada Programming/Object Orientation?) 


Ada Programming/Types/access 
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Ada Programming/Keywords? 

Ada Programming/Keywords/and?” 

Ada Programming/Keywords/interface?? 
Ada Programming/Attributes?” 


Ada Programming/Pragmas 
Ada Programming/Pragmas/Restrictions? 
Ada Programming/Libraries/ Ada.Containers 


30 
1 
32 


Ada Programming/Libraries/ Ada.Directories?? 


23.5.2 Pages in the category Ada 2005 


e Category:Ada Programming/Ada 2005 feature?* 


23.6 External links 





21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 


http://en 
http://en 
http://en 
Chapter 22 
Chapter 13 
Chapter 35 
http://en 
http://en 
Chapter 38 
Chapter 39 
http://en 
http://en 
http://en 
http://en 


.Wikibooks. 
.Wikibooks. 
.Wikibooks. 


on page 187 


on page 99 


on page 293 


.Wikibooks. 
.Wikibooks. 


on page 305 
on page 317 


.Wikibooks. 
.Wikibooks. 
.Wikibooks. 
.Wikibooks. 


org/wiki/Ada'/420ProgrammingA42FAda/2083 
org/wiki/Ada/20Programming/2FAda/2095 
org/wiki/Ada/20Programming/2FAda/202012 


org/wiki/Ada/20Programming/2FKeywords/2Fand 
org/wiki/Ada/20Programming/2FKeywords/2Finterface 


org/wiki/Ada/20Programming/2FPragmas/2FRestrictions 
org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers 
org/wiki/Ada/20Programming/2FLibraries/2FAda.Directories 
org/wiki//3ACategory/3AAda/20Programming/2FAda/202005/20feature 
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External links 


23.6.1 Papers and presentations 


e Ada 2005: Putting it all together?? (SIGAda 2004 presentation) 
e GNAT and Ada 2005% (SIGAda 2004 paper) 
e An invitation to Ada 2005%, and the presentation of this paper?? at Ada-Europe 2004 


23.6.2 Rationale 


e Rationale for Ada 2005?? by John Barnes??: 
1. Introduction 


. Object Oriented Model 

. Access Types 

. Structure and Visibility 
Tasking and Real-Time 
Exceptions, Generics, Etc. 
. Predefined Library 

. Containers 


9. Epilogue 


References 


Index 


Available as a single document for printing?!. 


23.6.3 Language Requirements 


e Instructions to the Ada Rapporteur Group from SC22/WG9 for Preparation of the 
Amendment to ISO/IEC 8652"? (10 October 2002), and a presentation of this document? 
at SIGAda 2002 


23.6.4 Ada Reference Manual 


e Ada Reference Manual, ISO/IEC 8652:1995(E) with COR.1:2001 and AMD.1:2007** 





//www.sigada.org/conf/sigada2004/SIGAda2004- CDROM/SIGAda2004-Proceedings/ 


Ada2005Panel.pdf 


35 http: 
36 http: 
37 http: 
38 http: 
39 http: 
40 http: 
41 http: 
42 http: 
43 http: 
44 http: 
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//www.adacore.com/wp-content/files/attachments/Ada 2005 and GNAT.pdf 
//sigada.org/ada letters/sept2003/Invitation to Ada 2005.pdf 
//wuw.cs.kuleuven.ac.be/-dirk/ada-belgium/events/04/040616-aec-ada2005.pdf 
//wuw.adaic.com/standards/O5rat/html/Rat-TTL.html 
//en.wikipedia.org/wiki/John/20Barnes/20/28computer/20scientist/29 
//wuw.adaic.com/standards/O5brat/Rationale05.pdf 
//www.open-std.org/jtci/sc22/WG9/n412.pdf 

/ /std.dkuug.dk/JTC1/sc22/wg9/n423 .pdf 
//waw.adaic.com/standards/05rm/htm1/RM-TTL. html 





e Annotated Ada Reference Manual, ISO/IEC 8652:1995(E) with COR.1:2001 and 
AMD.1:2007% (colored diffs) 
e List of Ada Amendment drafts? 


23.6.5 Ada Issues 


Amendment 200Y* 


A195-00387-01 Introduction to Amendment “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00387.TXT) 

AI95-00284-01 New reserved words “{http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00284.TXT) 

AI95-00252-01 Object.Operation notation “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00252.TXT) 

AT95-00218-01 Accidental overloading when overriding ^ (http: //www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00218.TXT} 

A195-00348-01 Null procedures ^[http: //www.ada-auth.org/cgi-bin/cvsweb.cgi/ 
AIs/AI-00348.TXT) 

AI95-00287-01 Limited aggregates allowed “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00287.TXT) 

AI95-00326-01 Incomplete types “{http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00326.TXT) 

AI95-00317-01 Partial parameter lists for formal packages “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00317.TXT] 

AI95-00376-01 Interfaces.C works for C++ as well ^[http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00376.TXT) 

AI95-00368-01 Restrictions for obsolescent features ^[http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00368.TXT) 

AI95-00381-01 New Restrictions identifier No Dependence “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00381.TXT} 

AI95-00224-01 pragma Unsuppress ^(http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00224.TXT} 

AI95-00161-01 Default-initialized objects “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00161.TXT) 

AI95-00361-01 Raise with message “{http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00361.TXT) 

AI95-00286-01 Assert pragma ^[http://www.ada-auth.org/cgi-bin/cvsweb.cgi/ 
AIs/AI-00286.TXT) 

AI95-00328-01 Preinstantiations of Complex IO “{http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00328.TXT) 

A195-00301-01 Operations on language-defined string types “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00301.TXT} 

AI95-00340-01 Mod attribute ^[http://www.ada-auth.org/cgi-bin/cvsweb.cgi/ 
AIs/AI-00340.TXT) 
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http://www.adaic.com/standards/0b5aarm/html/AA-TTL.html 
http://www.ada-auth. org/amendment .html 
http://www.ada-auth. org/AI-XREF .HTML#Amend_Doc 
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AI95-00364-01 Fixed-point multiply/divide ^[http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00364.TXT} 

AI95-00267-01 Fast float-to-integer conversions “{http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00267 . TXT} 

AI95-00321-01 Definition of dispatching policies ^[http://www.ada-auth.org/ 
cgi-bin/cvsweb.cgi/AIs/AI-00321.TXT) 

AI95-00329-01 pragma No Return -- procedures that never return “{http://www. 
ada-auth.org/cgi-bin/cvsweb.cgi/AIs/A1-00329.TXT) 

AI95-00362-01 Some predefined packages should be recategorized ^[http://www. 
ada-auth.org/cgi-bin/cvsweb.cgi/AIs/AI-00362.TXT) 

AI95-00351-01 Time operations ^[http://www.ada-auth.org/cgi-bin/cvsweb. 
cgi/AIs/AI-00351.TXT) 

A195-00427-01 Default parameters and Calendar operations “{http://www.ada-auth. 
org/cgi-bin/cvsweb.cgi/AIs/AI-00427 . TXT} 

AI95-00270-01 Stream item size control “{http://www.ada-auth.org/cgi-bin/ 
cvsweb.cgi/AIs/AI-00270.TXT} 


24 Containers 


What follows is a simple demo of some of the container types. It does not cover everything, 


but should get you started. 
This language feature is only available in Ada 2005 


First Example: Maps 


'The program below prints greetings to the world in a number of human languages. The 
greetings are stored in a table, or hashed map. The map associates every greeting (a value) 
with a language code (a key). That is, you can use language codes as keys to find greeting 


values in the table. 


'The elements in the map are constant strings of international characters, or really, pointers 
to such constant strings. A package Regional is used to set up both the language IDs and 


an instance of Ada . 





File: regional.ads 








with Ada.Containers.Hashed Maps; use Ada.Containers; 
package Regional is 
type Language ID is (DE, EL, EN, ES, FR, NL); 


type Hello Text is access constant Wide String; 
--objects will contain a «hello»-string in some language 


function ID Hashed (id: Language ID) return Hash Type; 
--you need to provide this to every hashed container 


package Phrases is new Ada.Containers.Hashed Maps 
(Key. Type => Language ID, 
Element Type => Hello Text, 
Hash -» ID Hashed, 
Equivalent Keys => "="); 


end Regional; 





--a selection from the two-letter codes for human languages 








Here is the program, details will be explained later. 
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File: hello world extended.ads 








with Regional; use Regional; 
with Ada.Wide Text I0; use Ada; 


procedure Hello World Extended is 
--print greetings in different spoken languages 


greetings: Phrases.Map; 
--the dictionary of greetings 


begin -- Hello_World_Extended 


Phrases. Insert (greetings, 
Key => EN, 
New_Item => new Wide_String'("Hello, World!")); 


--or, shorter, 

greetings.Insert(DE, new Wide_String'("Hallo, Welt!")); 

greetings.Insert(NL, new Wide_String'("Hallo, Wereld!")); 

greetings.Insert(ES, new Wide String'("jHola mundo!")); 

greetings.Insert(FR, new Wide String'("Bonjour, Monde!")); 

greetings.Insert(EL, new Wide_String' ("Tergov xóouog")); 
--Konuépa «doe ? 


declare 
use Phrases; 


speaker: Cursor := First (greetings); 
begin 
while Has_Element (speaker) loop 
Wide Text IO.Put Line( Element (speaker) .all ); 
Next (speaker); 
end loop; 
end; 


end Hello World Extended; 











'The first of the Insert statements is written in an Ada 95 style: 





Phrases.Insert(greetings, 
Key -» EN, 
New Item => new Wide String'("Hello, World!")); 











The next insertions use so called distinguished receiver notation which you can use in 
Ada 2005. (It's O-O parlance. While the Insert call involves all of: a Container object 
(greetings), a Key object (EN), and a New. Item object (new Wide String'(' Hello, 
World!")), the Container object is distinguished from the others in that the Insert 
call provides it (and only it) with the other objects. In this case the Container object 
will be modified by the call, using arguments named Key and New. Item for the modification.) 
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greetings.Insert(ES, new Wide String'("jHola mundo!")); 











After the table is set up, the program goes on to print all the greetings contained in the 
table. It does so employing a cursor that runs along the elements in the table in some order. 
The typical scheme is to obtain a cursor, here using First, and then to iterate the following 
calls: 


1. Has Element, for checking whether the cursor is at an element 
2. Element, to get the element and 
3. Next, to move the cursor to another element 


When there is no more element left, the cursor will have the special value No Element. 
Actually, this is an iteration scheme that can be used with all containers in child packages 
of Ada . 


A slight variation: picking an element 


The next program shows how to pick a value from the map, given a key. Actually, you will 
provide the key. The program is like the previous one, except that it doesn't just print all 
the elements in the map, but picks one based on a Language ID value that it reads from 
standard input. 





File: hello_world_pick.adb 








with Regional; use Regional; 
with Ada.Wide_Text_I0; use Ada; 


procedure Hello_World_Pick is 
. as before ... 


declare 
use Phrases; 


package Lang IO is new Wide_Text_I0.Enumeration_I0(Language_ID) ; 
lang: Language. ID; 
begin 
Lang_10.Get (lang) ; 
Wide Text IO.Put Line( greetings.Element (lang) .all ); 
end; 


end Hello World Pick; 











This time the Element function consumes a Key (lang) not a Cursor. Actually, it consumes 
two values, the other value being greetings, in distinguished receiver notation. 
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Second Example: Vectors and Maps 


Let's take bean counting literally. Red beans, green beans, and white beans. (Yes, white 
beans really do exist.) Your job will be to collect a number of beans, weigh them, and 
then determine the average weight of red, green, and white beans, respectively. Here is one 
approach. 


Again, we need a package, this time for storing vegetable related information. Introducing 
the Beans package (the Grams type doesn't belong in a vegetable package, but it's there to 
keep things simple): 





File: 1/beans.ads 








with Ada ; 
package Beans is 


type Bean Color is ( R, G, Mi: 
--red, green, and white beans 


type Grams is delta 0. 01 digits 7; 
--enough to weigh things as light as beans but also as heavy as 
--many of them 


type Bean is 
--info about a single bean 


record 
kind: Bean, Color; 
weight: Grams; 


end record; 


subtype Bean Count is Positive range 1 .. 1.000; 
--numbers of beans to count (how many has Cinderella have to count?) 


package Bean Vecs is new Ada. Containers.  Vectors 
( Element Type => Bean, 
Index Type => Bean Count) ; 


end Beans; 











The Vectors instance offers a data structure similar to an array that can change its size at run 
time. It is called Vector. Each bean that is read will be appended to a Bean, Vecs.Vector 
object. 


The following program first calls read, input to fill a buffer with beans. Next, it calls a 
function that computes the average weight of beans having the same color. This function: 





with Beans; use Beans; 


function average weight 

( buffer: Bean Vecs. Vector; desired color: Bean Color) return Grams; 
--scan “buffer” for all beans that have 'desired color'. Compute the 
--mean of their ‘.weight‘ components 
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'Then the average value is printed for beans of each color and the program stops. 





File: 1/bean_counting.adb 








with Beans; 
with average weight; 
with Ada ; 


procedure bean counting is 
use Beans, Ada; 


buffer: Bean Vecs. Vector; 


procedure read input( buf: in out Bean Vecs. Vector) is separate; 
--collect information from a series of bean measurements into ‘buf ‘ 


begin --bean counting 
read input( buffer) ; 


--nou everything is set up for computing some statistical data. 

--For every bean color in 'Bean Color', the function ‘average_weight ‘ 
--will scan 'buffer' once, and accumulate statistical data from 
--each element encountered. 


for kind in Bean_Color loop 
Wide Text IO. Put Line 
( Bean Color' Wide Image( kind) & 
" øg =" & Grams' Wide Image( average weight( buffer, kind) ) ) ; 
end loop; 


end bean counting; 











All container operations take place in function average weight. To find the mean weight 
of beans of the same color, the function is looking at all beans in order. If a bean has the 
right color, average weight adds its weight to the total weight, and increases the number 
of beans counted by 1. 


'The computation visits all beans. The iteration that is necessary for going from one bean to 
the next and then performing the above steps is best left to the Iterate procedure which is 
part of all container packages. To do so, wrap the above steps inside some procedure and 
pass this procedure to Iterate. The effect is that Iterate calls your procedure for each 
element in the vector, passing a cursor value to your procedure, one for each element. 


Having the container machinery do the iteration can also be faster than moving and 
checking the cursor yourself, as was done in the Hello World Extended example. 





File: average weight .adb 








with Beans; use Beans. Bean Vecs; 


function average weight 











235 


Containers 








( buffer: Bean Vecs. Vector; desired color: Bean Color) return Grams 
is 

total: Grams := 0. 0; 

--ueight of all beans in ‘buffer’ having ‘desired_color‘ 


number: Natural := 0; 
--number of beans in “buffer” having ‘desired_color‘ 


procedure accumulate( c: Cursor) is 
--if the element at ‘c‘ has the 'desired color', measure it 
begin 
if Element( c) . kind = desired color then 
number := number + 1; 
total := total + Element( c) . weight; 
end if; 


end accumulate; 
begin --average ueight 
Iterate( buffer, accumulate' Access) ; 
if number > O then 
return total / number; 
else 
return 0. 0; 


end if; 


end average_weight; 











This approach is straightforward. However, imagine larger vectors. average_weight will 
visit all elements repeatedly for each color. If there are M colors and N beans, average_- 
weight will be called M * N times, and with each new color, N more calls are necessary. A 
possible alternative is to collect all information about a bean once it is visited. However, 
this will likely need more variables, and you will have to find a way to return more than one 
result (one average for each color), etc. Try it! 


A different approach might be better. One is to copy beans of different colors to separate vec- 
tor objects. (Remembering Cinderella.) Then average weight must visit each element only 
one time. The following procedure does this, using a new type from Beans, called Bean, Pots. 





type Bean Pots is array( Bean Color) of Bean Vecs. Vector; 











Note how this plain array associates colors with Vectors. The procedure for getting the 
beans into the right bowls uses the bean color as array index for finding the right bowl (vector). 





File: 2/gather into pots.adb 








procedure gather into, pots( buffer: Bean Vecs. Vector; pots: in out Bean Pots) is 
use Bean, Vecs; 


procedure put into right pot( c: Cursor) is 
--select the proper bowl for the bean at "ei and «append» 











236 








--the bean to the selected bowl 
begin 

Append( pots( Element( c) . kind) , Element( c) ) ; 
end put into right pot; 


begin  --gather into pots 
Iterate( buffer, put into right pot' Access) ; 
end gather into pots; 








Everything is in place now. 





File: 2/bean counting.adb 








with Beans; 

with average weight; 
with gather into pots; 
with Ada. Vide Text IO; 


procedure bean counting is 
use Beans, Ada; 


buffer: Bean Vecs. Vector; 
bowls: Bean Pots; 
procedure read input( buf: in out Bean Vecs. Vector) is separate; 


--collect information from a series of bean measurements into “buf” 


begin --bean counting 
read input( buffer) ; 
--noy everything is set up for computing some statistical data. 
--Gather the beans into the right pot by color. 
--Then find the average weight of beans in each pot. 
gather_into_pots( buffer, bowls) ; 
for color in Bean_Color loop 


Wide Text IO. Put Line 
( Bean Color' Wide Image( color) 


go" g =" 
& Grams' Wide_Image( average_weight( bowls( color) , color) ) ) ; 
end loop; 


end bean_counting; 











As a side effect of having chosen one vector per color, we can determine the number of beans 
in each vector by calling the Length function. But average_weight, too, computes the 
number of elements in the vector. Hence, a summing function might replace average_weight 
here. 


All In Just One Map! 


The following program first calls read_input to fill a buffer with beans. Then, information 
about these beans is stored in a table, mapping bean properties to numbers of occurrence. 
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The processing that starts at Iterate uses chained procedure calls typical of the Ada 
iteration mechanism. 


The Beans package in this example instantiates another generic library unit, Ada . Where 
the Ada require a hashing function, Ada require a comparison function. We provide one, 
"<", which sorts beans first by color, then by weight. It will automatically be associated 
with the corresponding generic formal function, as its name, "<", matches that of the 
generic formal function, "«". 





function "<"( a, b: Bean) return Boolean; 
--order beans, first by color, then by weight 


package Bean Statistics 
--instances will map beans of a particular color and weight to the 
--number of times they have been inserted. 
is new Ada. Containers. Ordered Maps 
( Element Type => Natural, 
Key Type => Bean) ; 











Where the previous examples have withed subprograms, this variation on bean, counting 
packs them all as local subprograms. 





File: 3/bean counting.adb 








with Beans; 
with Ada. Vide Text IO; 


procedure bean counting is 
use Beans, Ada; 


buffer: Bean Vecs. Vector; 

stats cw: Bean Statistics. Map; 

--maps beans to numbers of occurrences, grouped by color, ordered by 
--ueight 

procedure read input( buf: in out Bean Vecs. Vector) is separate; 


--collect information from a series of bean measurements into “buf” 


procedure add bean info( specimen: in Bean) ; 

--insert bean ‘specimen‘ as a key into the ‘stats_cw‘ table unless 
--present. In any case, increase the count associated with this key 
--by 1. That is, count the number of equal beans. 


procedure add bean info( specimen: in Bean) is 
procedure one more( b: in Bean; n: in out Natural) is 
--increase the count associated with this kind of bean 
begin 
pn ent 1; 


end one more; 


Quis Bean Statistics. Cursor; 
inserted: Boolean; 
begin 


Stats cw. Insert( specimen, 0, c, inserted) ; 
Bean Statistics. Update Element( c, one more' Access) ; 
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end add bean info; 
begin --bean counting 
read input( buffer) ; 


--neat, for all beans in the vector “buffer” just filled, store 
--information about each bean in the ‘stats_cw‘ table. 


declare 
use Bean_Vecs; 


procedure count_bean( c: Cursor) is 
begin 
add_bean_info( Element( c) ) ; 
end count bean; 
begin 
Iterate( buffer, count bean' Access) ; 
end; 


--now everything is set up for computing some statistical data. The 
--keys of the map, i.e. beans, are ordered by color and then weight. 
--The ‘First’, and “Ceiling” functions will find cursors 

--denoting the ends of a group. 


declare 
use Bean_Statistics; 


--statistics is computed groupwise: 


q_sum: Grams; 
q_count: Natural; 
procedure q_stats( lo, hi: Cursor) ; 


--'q stats” will update the 'q sum' and ‘q_count‘ globals with 
--the sum of the key weights and their number, respectively. “lo” 
--(included) and “hi” (excluded) mark the interval of keys 

--to use from the map. 


procedure q_stats( lo, hi: Cursor) is 
k: Cursor := lo; 
begin 
q_count := 0; q sum := 0. 0; 
loop 
exit when k = hi; 
q_count := q count + Element( k) ; 
q sum := q sum + Key( k) . weight * Element( k) ; 
Next( k) ; 
end loop; 


end q_stats; 
--precondition 
pragma assert( not Is Empty( stats cw) , "container is empty") ; 
lower, upper: Cursor := First( stats cw) ; 
--denoting the first key of a group, and the first key of a 
--following group, respectively 
begin 
--start reporting and trigger the computations 


Wide Text IO. Put Line( "Summary:") ; 
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for color in Bean Color loop 


lower :- upper; 
if color = Bean Color' Last then 
upper :- No Element; 
else 
upper := Ceiling( stats cw, Bean' ( Bean Color' Succ( color) , 
0. 02; 
end if; 


q_stats( lower, upper) ; 


if q count > 0 then 
Wide Text IO. Put Line 

( Bean Color' Wide Image( color) & " group:" & 
" ø =" & Grams' Wide Image( q sum / q count) E 
", $ =" € Natural' Wide Image( q count) E 
", X =" & Grams' Wide Image( q sum) ) ; 

end if; 

end loop; 
end; 


end bean counting; 











Like in the greetings example, you can pick values from the table. This time the values tell 
the number of occurrences of beans with certain properties. The stats, cw table is ordered 
by key, that is by bean properties. Given particular properties, you can use the Floor 
and Ceiling functions to approximate the bean in the table that most closely matches the 
desired properties. 


It is now easy to print a histogram showing the frequency with which each kind of bean has 
occurred. If N is the number of beans of a kind, then print N characters on a line, or draw 
a graphical bar of length N, etc. A histogram showing the number of beans per color can 
be drawn after computing the sum of beans of this color, using groups like in the previous 
example. You can delete beans of a color from the table using the same technique. 


Finally, think of marshalling the beans in order starting at the least frequently occurring 
kind. That is, construct a vector appending first beans that have occurred just once, followed 
by beans that have occurred twice, if any, and so on. Starting from the table is possible, but 
be sure to have a look at the sorting functions of Ada . 


24.1 See also 


See also 


24.1.1 Wikibook 


e Ada Programming! 


e Ada Programming/Libraries/ Ada.Containers? 





KA 


http://en.wikibooks.org/wiki/Ada/20Programming 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers 


N 
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24.1.2 Ada 2005 Reference Manual 


e A.18.1 The Package Containers ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-A-18-1.html) 
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25 Interfacing 


25.1 Interfacing 


Interfacing 


Ada is one of the few languages where interfacing is part of the language standard. The 
programmer can interface with other programming languages, or with the hardware. 


25.2 Other programming languages 


Other programming languages 


The language standard defines the interfaces for C!, Cobol? and Fortran?. Of course any 
implementation might define further interfaces — GNAT‘ for example defines an interface 
to C++. 


Interfacing with other languages is actually provided by pragma Export®, Import” and 
Convention?. 


25.3 Hardware devices 


Hardware devices 


Embedded programmers usually have to write device drivers. Ada provides extensive 
support for interfacing with hardware, like using representation clauses? to specify the exact 
representation of types used by the hardware, or standard interrupt handling for writing 
Interrupt service routine!s. 





http://en.wikibooks.org/wiki/C/20Programming 
http://en.wikibooks.org/wiki/COBOL 
http://en.wikibooks.org/wiki/Programming/3AFortran 
http://en.wikibooks.org/wiki/Ada/20Programming/2FGNAT 
http://en.wikibooks.org/wiki/C/2B/2B/20Programming 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FExport 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2F Import 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FConvention 
http://en.wikibooks.org/wiki/Ada/20Programming/2FRepresentation/20c1lauses 
http://en.wikipedia.org/wiki/Interrupt/20service/20routine 
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25.4 See also 


See also 


25.4.1 Wikibook 


e Ada Programming! 
e Ada Programming/Libraries/Interfaces!? 


25.4.2 Ada Reference Manual 


e Annex B Interface to Other Languages “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-B.html) 


e Annex C Systems Programming ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-C.html) 


25.4.3 Ada 95 Rationale 


e bInterface to Other Languages3 


25.4.4 Ada Quality and Style Guide 


e 7.6.4 Interfacing to Foreign Languages “{http://www.adaic.org/resources/add_ 
content/docs/95style/html/sec 7/7-6-4.html]) 





11 http://en.wikibooks.org/wiki/Ada/20Programming 
12 Chapter 43 on page 349 
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26 Coding Standards 


26.1 Introduction 


Introduction 


Each project should follow a specific coding standard! to ease readability and maintenance 
of the source code, and reduce the insertion of errors. Depending on the requirements of the 
project, a set of guidelines can help to achieve the desired level of performance, portability, 
code complexity... 


There are many ASIS? tools that can be used to check automatically the adherence of Ada 
source code to the guidelines. 


26.2 Tools 
Tools 


e AdaControP? ( Rules?) 

e gnatcheck? ( Rules?) 

e GNAT Pretty-Printer” 

e The GNAT Metric Tool gnatmetric? 
e RainCode Engine? 

e RainCode Checker!? 

e AdaSTAT!! 


26.3 Coding guidelines 





http://en.wikipedia.org/wiki/coding/20standard 
http://en.wikipedia.org/wiki/Ada/20Semantic/20Interface/208pecification 
http://www.adalog.fr/adacontrol2.htm 

http://www.adalog.fr/compo/adacontrol ug.html&Rules-reference 
http://gcc.gnu.org/onlinedocs/gnat ugn unw/Verifying-Properties-Using-gnatcheck.html 
http://gcc.gnu.org/onlinedocs/gnat ugn unw/Predefined-Rules.html 
http://gcc.gnu.org/onlinedocs/gnat ugn unw/The-GNAT-Pretty 002dPrinter-gnatpp.html 
http://gcc.gnu.org/onlinedocs/gnat ugn unw/The-GNAT-Metric-Tool-gnatmetric.html 
http://www.raincode.com/adaengine.html 

http://www.raincode.com/adachecker.html 

http://www.adastat.com/ 


PrFOWANDOBWNH 


Ro 


245 


Coding Standards 





Coding guidelines 


Ada Quality & Style Guide!?: Guidelines for Professional Programmers 

ISO/IEC TR 15942:2000, Guide for the use of the Ada programming language in high 
integrity systems!?, First edition (2000-03-01). ISO Freely Available Standards! 
Stephen Leake, NASA Flight Software Branch — Ada Coding Standard! (2004-01-30) 
ESA!6 BSSC 





title - Ada Coding Standard 











| edition = BSSC(98)3 Issue 1 

| year - 1998 

| month = October 

| url = ftp://ftp.estec.esa.nl/pub/wm/wme/bssc/bssc983. pdf 
| accessdate = 2009-01-19 








H 


GNAT Coding Style: A Guide for GNAT Developers 





work = GCC online documentation 





17. Retrieved 








publisher 


accessdate 


= Free Software Foundation 
url = http://gcc.gnu.org/onlinedocs/gnat-style/ 
= 2009-01-19 








18. , Retrieved ( PDF!) 


26.4 See also 


See also 


26.4.1 Other wikibooks 


e Ada Style Guide?? 





12 
13 
14 
15 
16 
17 
18 
19 
20 


http: 
http: 
http: 
http: 
http: 


http: 
http: 
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//en.wikibooks.org/wiki/Ada/208tyle/20Guide 
//www.dit.upm.es/ork/documents/adahis.pdf 
//standards.iso.org/ittf/PubliclyAvailableStandards/ 
//software.gsfc.nasa.gov/AssetsApproved/PA2.4.1.1.1.pdf 
//en.wikipedia. org/wiki/European/20Space/,20Agency 


//gcc.gnu.org/onlinedocs/gnat-style. pdf 
//en.wikibooks.org/wiki/Ada/208ty1e/20Guide 





26.4.2 Wikibook 


e Ada Programming?! 


26.4.3 Ada Quality and Style Guide 


e Chapter 1: Introduction ^[http://www.adaic.org/resources/add content/docs/ 
95style/html/sec 1/] 


26.5 External links 


External links 


e Introduction to Coding Standards?? 





21  http://en.wikibooks.org/wiki/Ada/20Programming 
2 http://geekswithblogs.net/sdorman/archive/2007/06/13/Introduction-to-Coding-Standards. 
aspx 
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27 Tips 


27.1 Full declaration of a type can be deferred to the unit's 
body 


Full declaration of a type can be deferred to the unit's body 


Often, you'll want to make changes to the internals of a private type. This, in turn, will 
require the algorithms that act on it to be modified. If the type is completed in the unit 
specification, it is a pain to edit and recompile both files, even with an IDE!, but it's 
something some programmers learn to live with. 


It turns out you don't have to. Nonchalantly mentioned in the ARM?, and generally skipped 
over in tutorials, is the fact that private types can be completed in the unit's body itself, 
making them much closer to the relevant code, and saving a recompile of the specification, 
as well as every unit depending on it. This may seem like a small thing, and, for small 
projects, it is. However, if you have one of those uncooperative types that requires dozens of 
tweaks, or if your dependence graph has much depth, the time and annoyance saved add up 
quickly. 


Also, this construction is very useful when coding a shared library, because it permits to 
change the implementation of the type while still providing a compatible ABI?. 


Code sample: 





package Private_And_Body is 
type Private_Type is limited private; 
--Operations... 

private 
type Body_Type; --Defined in the body 


type Private_Type is access Body_Type; 
end Private_And_Body; 











The type in the public part is an access* to the hidden type. This has the drawback that 
memory management has to be provided by the package implementation. That is the reason 
why Private_Type is a limited type, the client will not be allowed to copy the access values, 
in order to prevent dangling references. 





http://en.wikipedia.org/wiki/Integrated/20development/20environment 
http://www.adaic.org/standards/951rm/htm1/RM-TTL. html 
http://en.wikipedia.org/wiki/Application binary interface 

Chapter 13 on page 99 
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These types are sometimes called "Taft types" —named after Tucker Taft, the main designer 
of Ada 95— because were introduced in the so-called Taft Amendment to Ada 83. In other 
programming languages, this technique is called "opaque pointer?s'. 


27.2 Lambda calculus through generics 


Lambda calculus through generics 


Suppose you've decided to roll your own setÓ type. You can add things to it, remove things 
from it, and you want to let a user apply some arbitrary function to all of its members. But 
the scoping rules seem to conspire against you, forcing nearly everything to be global. 


The mental stumbling block is that most examples given of generics/ are packages, 


and the Set package is already generic. In this case, the solution is to make the 
Apply To All procedure generic as well; that is, to nest the generics. Generic pro- 
cedures inside packages exist in a strange scoping limbo, where anything in scope at 
the instantiation can be used by the instantiation, and anything normally in scope at 
the formal can be accessed by the formal. The end result is that the relevant scoping 
roadblocks no longer apply. It isn't the full lambda calculus, just one of the most useful parts. 





generic 
type Element is private; 
package Sets is 
type Set is private; 
[53 
generic 
with procedure Apply To One (The Element : in out Element); 
procedure Apply To A11 (The Set : in out Set); 
end Sets; 











For a view of Functional Programming in Ada see ?. 


27.3 Compiler Messages 


Compiler Messages 


Different compilers can diagnose different things differently, or the same thing using different 
messages, etc.. Having two compilers at hand can be useful. 


selected component 


When a source program contains a construct such as Foo.Bar, you may see messages 
saying something like «selected component "Bar"» or maybe like «selected component 
"Foo'». The phrases may seem confusing, because one refers to Foo, while the other refers 





http://en.wikipedia.org/wiki/opaque/20pointer 
http://en.wikipedia.org/wiki/Set/420/28computer/20science/29 
Chapter 20 on page 161 

Functional Programming in...Ada? “{http: //okasaki .blogspot.com/2008/07/ 
functional-programming-inada.html} , by Chris Okasaki 
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to Bar. But they are both right. The reason is that selected component is an item from 
Ada's grammar (4.1.3 Selected Components ^[http: //www.adaic.org/resources/add. 
content/standards/05rm/htm1/RM-4-1-3.htm1} ). It denotes all of: a prefix, a dot, and 
a selector_name. In the Foo.Bar example these correspond to Foo, '.', and Bar. Look for 
more grammar words in the compiler messages, e.g. «prefix», and associate them with 
identifiers quoted in the messages. 


For example, if you submit the following code to the compiler, 





with Pak; 
package Foo is 

type T is new Pak. Bar; --Üops, Pak is generic! 
end Foo; 











the compiler may print a diagnostic message about a prefixed component: Foo's author 
thought that Pak denotes a package, but actually it is the name of a generic package. 
(Which needs to be instantiated first; and then the instance name is a suitable prefix.) 


27.4 Universal integers 


Universal integers 


All integer literals and also some attributes like 'Length are of the anonymous type 
universal_integer, which comprises the infinite set of mathematical integers. Named 
numbers are of this type and are evaluated exactly (no overlow except for machine storage 
limitations), e.g. 





Very_Big: constant := 10**1_000_000 - 1; 











Since universal_integer has no operators, its values are converted in this example to root_- 
integer, another anonymous type, the calcuation is performed and the result again converted 
back in universal_integer. 


Generally values of universal integer are implicitly converted to the appropriate type when 
used in some expression. So the expression not A' Length is fine; the value of A' Length 
is interpreted as a modular integer since not can only be applied to modular integers (of 
course a context is needed to decide which modular integer type is meant). This feature can 
lead to pitfalls. Consider 





type Ran 6 is range 1 .. 6; 
type Mod 6 is mod 6; 











and then 





if A' Length in Ran 6 then --OK 


if not A' Length in Ran 6 then  --not OK 
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--this is the same as 
if (not A' Length) in Ran_6 then  --not OK 


if A' Length in 1 .. 6 then --OK 
if not A' Length in 1 .. 6 then --not OK 
if A' Length in Mod 6 then --OK? 


if not A' Length in Mod 6 then --OK? 








'The second conditional cannot be compiled because the expressions to the left of in is 
incompatible to the type at the right. Note that not has precedence over in. It does not 
negate the entire membership test but only A' Length. 


'The fourth conditional fails in various ways. 


The sixth conditional might be fine because not turns A' Length into a modular value 
which is OK if the value is covered by modular type Mod, 6. 


GNAT GPL 2009 gives these diagnoses respectively: 








error: incompatible types 
error: operand of not must be enclosed in parentheses 
warning: not expression should be parenthesized here 








A way to avoid these problems is to use not in for the membership test, 








if A' Length not in Ran 6 then --OK 








See 


e 2.4 Numeric Literals ^[http://www.adaic.org/resources/add content/standards/ 
O5rm/htm1/RM-2-4. html} , 

e 3.6.2 Operations of Array Types ^(http://www.adaic.org/resources/add content/ 
standards/Ob5rm/html/RM-3-6-2.html) ), and 

e 4.5 Operators and Expression Evaluation “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-4-5.html) , 

e 4.5.2 Relational Operators and Membership Tests *{http://www.adaic.org/ 
resources/add content/standards/Obrm/html/RM-4-5-2.html) , 

e Membership Tests? 


27.5 I/O 





9 


Chapter 37.3 on page 303 
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I/O 
27.5.1 Text IO Issues 


A canonical method of reading a sequence of lines from a text file uses the standard procedure 
Ada Get Line. When the end of input is reached, Get Lite will fail, and exception End - 
Error is raised. Some programs will use another function from Ada to prevent this and test 
for End of Input. However, this isn't always the best choice, as has been explained for 
example in a Get. Line news group discussion on comp.lang.ada!?, 


A working solution uses an exception handler instead: 





declare 
The Line: String( 1.. 100) ; 
Last: Natural; 

begin 
loop 


Text IO. Get Line( The Line, Last) ; 
--do something with The Line ... 
end loop; 
exception 
when Text IO. End Error => 
null; 
end; 











27.6 Quirks 
Quirks 


Using GNAT on Windows, calls to subprograms from Ada might need special attention. 
(For example, the Real Time.Clock function might seem to return values indicating that 
no time has passed between two invocations when certainly some time has passed.) The 
cause is reported to be a missing initialization of the run-time support when no other 
real-time features are present in the program.!! As a provisional fix, it is suggested to insert 





delay 0. 0; 











before any use of Real_Time services. 


27.6.1 Stack Size 


With some implementations, notably GNAT, knowledge of stack size manipulation will be 
to your advantage. Executables produced with GNAT tools and standard settings can hit 
the stack size limit. If so, the operating system might allow setting higher limits. Using 





10  http://groups.google.com/group/comp.lang.ada/browse thread/thread/5afeb98156615c8bit 
11 Vincent Celier . Timing code blocks Timing code blocks ^(groups.google.es/group/comp.lang.ada/ 
browse thread/thread/c8acfc87fbb1813d) . , Usenet article forwards this information from AdaCore. 
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GNU/Linux and the Bash command shell, try 





$ ulimit -s [some number] 








The current value is printed when only -s is given to ulimit. 


27.7 References 


References 


27.8 See also 


See also 


27.8.1 Wikibook 


e Ada Programming!? 


e Ada Programming/Errors? 


27.8.2 Ada Reference Manual 


e 3.10.1 Incomplete Type Declarations “{http://www.adaic.org/resources/add_ 
content/standards/05rm/htm1/RM-3-10-1.html} 





12  http://en.wikibooks.org/wiki/Ada/20Programming 
13 Chapter 28 on page 255 
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28 Common Errors 


Some language features are often misunderstood, resulting in common programming errors, 
performance degradation and portability problems. The following incorrect usages of the 
Ada language are often seen in code written by Ada beginners. 


28.1 pragma Atomic & Volatile 
pragma Atomic & Volatile 


It is almost always incorrect to use atomic! or volatile? variables for tasking? .4 


When an object is atomic it just means that it will be read from or written to memory 
atomically. The compiler will not generate atomic instructions or memory barriers when 
accessing to that object, it will just: 


e check that the architecture guarantees atomic memory loads and stores, 
e disallow some compiler optimizations, like reordering or suppressing redundant accesses 
to the object. 


For example, the following code, where A is an atomic object can be misunderstood: 





A := A+ 1; --Not an atomic increment! 











The compiler will not (and is not allowed by the Standard to) generate an atomic increment 
instruction to directly increment and update from memory the variable A. This is the code 
generated by the compiler: 





A:=A+ 1; 
804969f: al 04 95 05 08 mov 0x8059504,%eax 
80496a4: 40 inc heax 
80496a5: a3 04 95 05 08 mov eax ,0x8059504 











As can be seen, no atomic increment instruction or test-and-set opcode will be generated. 
Like in other programming languages, if these specific instructions are required in the 
program they must be written explicitly using machine code insertions.? 





http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2F Atomic 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FVolatile 

Chapter 21 on page 173 

Volatile: Almost Useless for Multi-Threaded Programming 5. Intel Software Network . Retrieved 
2008-05-30 

6 Volatile ”. . Retrieved 2008-05-28 

8 Laurent Guerby Ada 95 Rationale . Intermetrics , , 1995 
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The above code snippet is equivalent to the following code (both code sequences generates 
exactly the same object code), where T is a (non-atomic) temporary variable: 





T := A; --A is copied atomically to local variable T 
T := T+ 1; --local variable T is incremented 
A := T; --A is stored atomically 











Thus it is incorrect to modify an atomic variable at the same time from multiple tasks. 
For example, two tasks incrementing a counter in parallel. Even in an uniprocessor, other 
Ada tasking features like a protected object should be used instead. In multiprocessors, 
depending on the memory consistency model’, using various atomic or volatile variables for 
task communication can have surprising consequences.!°!? Therefore, extreme care should 
be taken when using atomic objects for task data sharing or synchronization, specially in a 
multiprocessor. 


28.2 References 


References 


28.3 pragma Pack 
pragma Pack 


28.3.1 Exact data representation 


It is important to realize that pragma Pack!? must not be used to specify the exact 
representation of a data type, but to help the compiler to improve the efficiency of 
the generated code.!^ The compiler is free to ignore the pragma, therefore if a specific 
representation of a type is required, representation clauses? should be used instead (record 
representation clauses, and/or attributes 'Size!® or 'Component_Size!”). 





9 http://en.wikipedia.org/wiki/Memory/^20model/420/28programming/29 

10 Volatile !!. . Retrieved 2008-05-28 

12  Sarita V. Adve, Kourosh Gharachorloo . Shared Memory Consistency Models: A Tutorial Shared Mem- 
ory Consistency Models: A Tutorial *“{www.hpl.hp.com/techreports/Compag-{}DEC/WRL-{}95-{}7. 
pdf}. IEEE Computer , 29 : 66—76 December 1996 


13 http://en.wikibooks. org/wiki/Ada/20Programming/2FPragmas/2FPack 

14 Adam Beneschan . Pragma Pack vs. Convention C, portability issue? Pragma Pack vs. Convention C, 
portability issue? “{groups.google.es/group/comp. lang.ada/msg/6698960624779ec7} . , 

15 http://en.wikibooks. org/wiki/Ada/20Programming/2FRepresentation/20clauses 

16 http: //en.wikibooks. org/wiki/Ada/20Programming/2FAttributes/2F/,27Size 

17 = http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Component_Size 
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28.3.2 Bit-wise operations 


Although in Ada 83 packed boolean arrays were used for bit-wise operations,!? since Ada 95 
modular types!? are more adequate for these operations.) The argument may be weighed 
against the advantages of named Boolean array indexes such as Traffic Lights' ( Red 
=> True, others => False) , depending on use case. 


28.4 'Bit Order attribute 
'Bit_ Order attribute 


The 'Bit_ Order?! attribute is not intended to convert data between a big-endian 
and a little-endian machine (it affects bit numbering, not byte order). The compiler will 
not generate code to reorder multi-byte fields when a non-native bit order is specified.?22324 


28.5 'Size attribute 


'Size attribute 


A common Ada programming mistake is to assume that specifying 'Size for a type T forces 
the compiler to allocate exactly this number of bits for objects of this type. This is not true. 
The specified T'Size?® will force the compiler to use this size for components in 
packed arrays and records and in Unchecked Conversion, but the compiler is still 
free to allocate more bits for stand-alone objects. 


Use 'Size on the object itself to force the object to the specified value. 


28.6 See also 





18 Software Productivity Consortium (October 1995). Ada 95 Quality and Style Guide, "10.5.7 Packed 
Boolean Array Shifts ^(http://www.adaic.org/resources/add content/docs/95style/html/sec  10/ 
10-5-7.htm1) ' 

19 Chapter 7 on page 71 

20 Software Productivity Consortium (October 1995). Ada 95 Quality and Style Guide, "10.6.3 Bit Op- 
erations on Modular Types ^(http://www.adaic.org/resources/add content/docs/95style/html/ 
sec 10/10-6-3.html) " 

21  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Bit/200rder 

22- dw 

23 ISO/IEC 8652:2007. 13.5.3 Bit Ordering (9/2). Ada 2005 Reference Manual. Bit Order clauses 
make it possible to write record representation clauses that can be ported between machines having 
different bit ordering. They do not guarantee transparent exchange of data between such machines. 
^(http://www.adaic.org/resources/add content/standards/Ob5rm/html/RM-13-5-3.html) 

24 75, Retrieved 

26  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/278ize 
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See also 


28.6.1 Wikibook 


e Ada Programming?’ 
e Ada Programming/Tips?? 


28.7 References 


References 





27  http://en.wikibooks.org/wiki/Ada/20Programming 
28 Chapter 27 on page 249 
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29 Algorithms 


29.1 Introduction 


Introduction 


Welcome to the Ada implementations of the Algorithms! Wikibook. For those who are new 
to Ada Programming? a few notes: 


e All examples are fully functional with all the needed input and output operations. 
However, only the code needed to outline the algorithms at hand is copied into the text - 
the full samples are available via the download links. (Note: It can take up to 48 hours 
until the cvs is updated). 

e We seldom use predefined types in the sample code but define special types suitable for 
the algorithms at hand. 

e Ada allows for default function parameters; however, we always fill in and name all 
parameters, so the reader can see which options are available. 

e We seldom use shortcuts - like using the attributes Image or Value for String <=> Integer 
conversions. 


All these rules make the code more elaborate than perhaps needed. However, we also hope 
it makes the code easier to understand 


Category:Ada Programming? 

29.2 Chapter 1: Introduction 

Chapter 1: Introduction 

The following subprograms are implementations of the Inventing an Algorithm examples?. 


29.2.1 To Lower 


'The Ada example code does not append to the array as the algorithms. Instead we create 
an empty array of the desired length and then replace the characters inside. 





http://en.wikibooks.org/wiki/Algorithms 
http://en.wikibooks.org/wiki/Ada/20Programming 
http://en.wikibooks.org/wiki/Category/3AAda/20Programming 
http://en.wikibooks.org/wiki/Algorithms/2FIntroduction/23Invent ing/20an/20Algorithm 
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File: to lower 1.adb 


function To Lower (C : Character) return Character renames 
Ada.Characters.Handling.To Lower; 


-- tolower - translates all alphabetic, uppercase characters 
-- in str to lowercase 
function To_Lower (Str : String) return String is 

Result : String (Str'Range) ; 
begin 

for C in Str'Range loop 

Result (C) := To_Lower (Str (C)); 

end loop; 

return Result; 
end To_Lower; 











Would the append approach be impossible with Ada? No, but it would be significantly more 
complex and slower. 


29.2.2 Equal Ignore Case 


File: to lower 2.adb 





-- equal-ignore-case -- returns true if s or t are equal, 
-- ignoring case 
function Equal Ignore Case 
(S : String; 
T : String) 
return Boolean 
is 
D : constant Integer :- S'First - T'First; 
begin 
if T'Length /= S'Length then 
return False; -- if they aren't the same length, they 
-- aren't equal 
else 
for I in S'Range loop 
if To Lower (S (I)) /= 
To Lower (T (I * 0)) 
then 
return False; 
end if; 
end loop; 
end if; 
return True; 
end Equal, Ignore, Case; 








29.3 Chapter 6: Dynamic Programming 
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Chapter 6: Dynamic Programming 
29.3.1 Fibonacci numbers 
The following codes are implementations of the Fibonacci-Numbers examples?. 


Simple Implementation 


File: fibonacci_1.adb 














To calculate Fibonacci numbers negative values are not needed so we define an integer type 
which starts at 0. With the integer type defined you can calculate up until Fib (87). Fib 
(88) will result in an Constraint Error. 





type Integer Type is range 0 .. 999 999 999 999 999 999; 











You might notice that there is not equivalence for the assert (n >= 0) from the original 
example. Ada will test the correctness of the parameter before the function is called. 





function Fib (n : Integer Type) return Integer Type is 
begin 
if n = 0 then 
return 0; 
elsif n = 1 then 
return 1; 
else 
return Fib (n - 1) + Fib (n - 2); 
end if; 
end Fib; 











Cached Implementation 


File: fibonacci 2.adb 














For this implementation we need a special cache type can also store a -1 as "not calculated" 
marker 





5 http://en.wikibooks.org/wiki/AlgorithmsA2FDynamic/20Programming/23Fibonacci Numbers 
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type Cache Type is range -1 .. 999 999 999 999 999 999; 











The actual type for calculating the fibonacci numbers continues to start at 0. As it isa 
subtype of the cache type Ada will automatically convert between the two. (the conversion 
is - of course - checked for validity) 





subtype Integer Type is Cache Type range 
O .. Cache Type' Last; 











In order to know how large the cache need to be we first read the actual value from the 
command line. 





Value : constant Integer Type :- 
Integer Type'Value (Ada.Command Line.Argument (1)); 











The Cache array starts with element 2 since Fib (0) and Fib (1) are constants and ends 
with the value we want to calculate. 





type Cache Array is 
array (Integer Type range 2 .. Value) of Cache Type; 











The Cache is initialized to the first valid value of the cache type — this is -1. 





F : Cache Array := (others => Cache Type'First); 











What follows is the actual algorithm. 





function Fib (N : Integer Type) return Integer Type is 
begin 
if N - O or else N - 1 then 
return N; 
elsif F (N) /= Cache Type'First then 
return F (N); 


else 
F (N) := Fib (N - 1) + Fib (N - 2); 
return F (N); 
end if; 
end Fib; 











This implementation is faithful to the original from the Algorithms® book. However, in Ada 
you would normally do it a little different: 


File: fibonacci 3.adb 





6 http://en.wikibooks.org/wiki/Algorithms 
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when you use a slightly larger array which also stores the elements 0 and 1 and initializes 
them to the correct values 





type Cache Array is 
array (Integer Type range O .. Value) of Cache Type; 


F : Cache Array :- 
(0 => 0, 
1 => 1, 
others => Cache Type'First); 











and then you can remove the first if path. 








return N; 
els 
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if F (N) /- Cache Type'First then 
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This will save about 45% of the execution-time (measured on Linux 1686) while needing only 
two more elements in the cache array. 


Memory Optimized Implementation 
'This version looks just like the original in WikiCode. 


File: fibonacci 4.adb 





type Integer Type is range 0 .. 999 999 999 999 999 999; 


function Fib (N : Integer Type) return Integer Type is 
U : Integer Type :- 0; 
V : Integer Type :- 1; 
begin 
for I in 2 .. N loop 
Calculate Next : declare 
T : constant Integer Type :- U + V; 


begin 
U := V; 
NV :=T; 
end Calculate_Next; 
end loop; 
return V; 
end Fib; 











No 64 bit integers 


Your Ada compiler does not support 64 bit integer numbers? Then you could try to use 
decimal numbers’ instead. Using decimal numbers results in a slower program (takes about 
three times as long) but the result will be the same. 


The following example shows you how to define a suitable decimal type. Do experiment 
with the digits and range parameters until you get the optimum out of your Ada compiler. 





File: fibonacci_5.adb 








type Integer Type is delta 1.0 digits 18 range 
0.0 .. 999_999_999_999_999_999.0; 











You should know that floating point numbers are unsuitable for the calculation of fibonacci 
numbers. They will not report an error condition when the number calculated becomes too 
large — instead they will lose in precision which makes the result meaningless. 





7 Chapter 10 on page 79 
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File: function overloading.adb 


function Generate Number (MaxValue : Integer) return Integer is 
subtype Random Type is Integer range O .. MaxValue; 
package Random Pack is new Ada.Numerics.Discrete Random (Random Type); 


G : Random, Pack. Generator: 
begin 

Random, Pack.Reset (6G); 

return Random Pack.Random (G); 
end Generate, Number; 


function Generate Number (MinValue : Integer; 
MaxValue : Integer) return Integer 
is 
subtype Random Type is Integer range MinValue .. MaxValue; 
package Random Pack is new Ada.Numerics.Discrete Random (Random Type); 


G : Random, Pack.Generator; 
begin 

Random, Pack.Reset (6G); 

return Random Pack.Random (G); 
end Generate, Number; 








Number 1 : Integer :- Generate Number (10); 








Number 2 : Integer :- Generate Number (6, 10); 











30.1 Function overloading in Ada 


Function overloading in Ada 


Ada supports all six signature options but if you use the arguments! name as option you 


will always have to name the parameter when calling the function. i.e.: 





Number 2 : Integer :- Generate Number (MinValue => 6, 
MaxValue => 10); 











Note that you cannot overload a generic procedure or generic function within the same 


package. The following example will fail to compile: 
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package myPackage 

generic 

type Value Type is (<>); 
--The first declaration of a generic subprogram 
--with the name "Generic Subprogram" 
procedure Generic Subprogram (Value : in out Value Type); 
generic 

type Value Type is (<>); 
--This subprogram has the same name, but no 
--input or output parameters. A non-generic 
--procedure would be overloaded here. 
--Since this procedure is generic, overloading 
--is not allowed and this package will not compile. 
procedure Generic_Subprogram; 
generic 

type Value_Type is (<>); 
--The same situation. 
--Even though this is a function and not 
--a procedure, generic overloading of 
--the name "Generic Subprogram" is not allowed. 


function Generic_Subprogram (Value : Value_Type) return Value_Type; 
end myPackage; 











30.2 See also 


See also 


30.2.1 Wikibook 


e Ada Programming! 
e Ada Programming/Subprograms? 


30.2.2 Ada 95 Reference Manual 


e 6.6 Overloading of Operators ^[http://www.adaic.org/resources/add content/ 


standards/951rm/ARM_HTML/RM-6-6.htm1} 


e 8.6 The Context of Overload Resolution “{http://www.adaic.org/resources/add_ 


content/standards/951rm/ARM HTML/RM-8-6.html) 


30.2.3 Ada 2005 Reference Manual 


e 6.6 Overloading of Operators ^[http://www.adaic.org/resources/add content/ 


standards/Obrm/html/RM-6-6.html) 


e 8.6 The Context of Overload Resolution ^([http://www.adaic.org/resources/add. 


content/standards/Obrm/html/RM-8-6.html) 





KA 


http://en.wikibooks.org/wiki/Ada/20Programming 
Chapter 16 on page 125 
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31 Mathematical calculations 


Ada is very well suited for all kind of calculations. You can define you own fixed point 
and floating point types and — with the aid of generic packages call all the mathematical 
functions you need. In that respect Ada is on par with Fortran!. This module will show you 
how to use them and while we progress we create a simple RPN? calculator. 


31.1 Simple calculations 


Simple calculations 


31.1.1 Addition 


Additions can be done using the predefined operator + . The operator is predefined for all 
numeric types and the following, working code, demonstrates its use: 





File: numeric 1.adb 


-- The Package Text IU? 
with Ada ; 


procedure Numeric 1 is 
type Value Type is digits 12 
range -999 999 999 999.0e999 .. 999 999 999 999.0e999; 


package T IO renames Ada.Text I0; 
package F IO is new Ada Test IO.Float IO (Value Type); 


Value 1 : Value Type; 
Value 2 : Value Type; 


begin 
T IO.Put ("First Value : "); 
F IO.Get (Value 1); 
T IO.Put ("Second Value : "); 
F_I0.Get (Value 2); 


F IO.Put (Value. 1); 

T IO0.Put (" + "); 

F IO.Put (Value 2); 

T IO.Put ("="); 

F IO.Put (Value 1 + Value 2); 
end Numeric 1; 














il http://en.wikibooks.org/wiki/Programming/3AFortran 
2 http://en.wikipedia.org/wiki/Reverse/20Po1lish/20notation 
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31.1.2 Subtraction 


Subtractions can be done using the predefined operator - . The following extended demo 
shows the use of + and - operator together: 





File: numeric, 2.adb 


-- The Package Text_I0+ 
with Ada ; 


procedure Numeric 2 
is 
type Value Type 
is digits 
12 
range 
-999 999 999 999.0e999 .. 999 999 999 999.0e999; 


package T IO renames Ada ; 
package F IO is new Ada.Text IO.Float IO (Value Type); 


Value 1 : Value, Type; 
Value 2 : Value Type; 
Result : Value Type; 


Operation : Character; 


begin 
T IO.Put ("First Value : "); 
F_10.Get (Value. 1); 
T IO.Put ("Second Value : "); 
F IO.Get (Value 2); 
T IO.Put ("Operation 2 o"); 
T_I0.Get (Operation); 


case Üperation is 
when '+' => 
Result := Value 1 + Value 2; 
when '-' => 
Result := Value 1 - Value 2; 
when others => 
T IO.Put Line ("Illegal Operation. 
goto Exit Numeric 2; 
end case; 


Hz 


F IO.Put (Value 1); 

T IO.Put (" "); 

T IO.Put (Operation); 
T.ID.Put Or "); 

F IO.Put (Value 2); 

T IO.Put ("="); 

F IO.Put (Result); 


<< Exit Numeric, 25» 
return; 


end Numeric, 2; 
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Purists might be surprised about the use of goto — but some people prefer the use of goto 
over the use of multiple return statements if inside functions — given that, the opinions on 
this topic vary strongly. See the isn't goto evil? article. 


31.1.3 Multiplication 


Multiplication can be done using the predefined operator * . For a demo see the next chapter 
about Division. 


31.1.4 Division 


Divisions can be done using the predefined operators / , mod , rem . The operator / 
performs a normal division, mod returns a modulus division and rem returns the remainder 
of the modulus division. 


The following extended demo shows the use of the + , - , * and / operators together as 


well as the use of a four number wide stack to store intermediate results: 


The operators mod and rem are not part of the demonstration as they are only defined for 
integer types. 





File: numeric, 3.adb 


with Ada ; 
procedure Numeric 3 is 
procedure Pop Value; 


procedure Push Value; 


type Value Type is digits 12 range 
-999 999 999 999.0e999 .. 999 999 999 999.0e999; 


type Value Array is array (Natural range 1 .. 4) of Value Type; 


package T IO renames Ada.Text I0; 
package F IO is new Ada.Text IO.Float IO (Value Type); 


Values : Value Array := (others => 0.0); 
Operation : String (1 .. 40); 
Last : Natural; 


procedure Pop Value is 
begin 
Values (Values'First + 1 .. Values'Last) := 
Values (Values'First + 2 .. Values'Last) € 0.0; 
end Pop_Value; 


procedure Push_Value is 
begin 
Values (Values'First + 1 .. Values'Last) := 
Values (Values'First .. Values'Last - 1); 
end Push_Value; 














5 Chapter 4 on page 37 
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begin 
Main, Loop: 
loop 
T IO.Put (">"); 
TD. Ger Line (Operation, Last); 


if Last = 1 and then Operation (1) = '+' then 
Values (1) := Values (1) + Values (2); 
Pop Value; 
elsif Last = 1 and then Operation (1) = '-' then 
Values (1) := Values (1) + Values (2); 
Pop Value; 
elsif Last = 1 and then Operation (1) = '*' then 
Values (1) := Values (1) * Values (2); 
Pop Value; 
elsif Last = 1 and then Operation (1) = '/' then 
Values (1) := Values (1) / Values (2); 
Pop Value; 
elsif Last = 4 and then Operation (1 .. 4) = "exit" then 
exit Main Loop; 
else 
Push, Value; 
F_I0.Get (From => Operation, Item => Values (1), Last => 
Last); 
end if; 


Display Loop: 
for I in reverse Value Array'Range loop 
F IO.Put 
(Item => Values (I), 
Fore => F I0.Default Fore, 
Aft => F IO0.Default Aft, 
Exp => 4); 
T. IO.New Line; 
end loop Display. Loop; 
end loop Main Loop; 


return; 
end Numeric, 3; 











31.2 Exponential calculations 


Exponential calculations 


All exponential functions are defined inside the generic package Ada . 


31.2.1 Power of 


Calculation of the form z" are performed by the operator ** . Beware: There are two 


versions of this operator. The predefined operator ** allows only for Standard.Integer to be 
used as exponent. If you need to use a floating point type as exponent you need to use the 
** defined in Ada . 
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31.2.2 Root 


The square root yz is calculated with the function Sort O. There is no function defined to 
calculate an arbitrary root (/x. However you can use logarithms to calculate an arbitrary 
root using the mathematical identity: Ya = elo8«(9)/^ which will become root := Exp (Log 
(a) / b) in Ada. Alternatively, use Va = a? which, in Ada, is root := a**(1.0/b). 


31.2.3 Logarithm 


Ada defines a function for both the arbitrary logarithm log; (x) and the natural logarithm 
loge(x), both of which have the same name Log O distinguished by the number of parameters. 


31.2.4 Demonstration 


The following extended demo shows the how to use the exponential functions in Ada. The 
new demo also uses Unbounded_ String instead of Strings which make the comparisons 
easier. 


Please note that from now on we won't copy the full sources any more. Do follow the 
download links to see the full program. 





File: numeric, 4.adb 


with Ada ; 
with Ada ; 
with Ada ; 


procedure Numeric 4 is 
package Str renames Ada.Strings.Unbounded; 
package T IO renames Ada.Text IO; 


procedure Pop Value; 
procedure Push Value; 
function Get Line return Str.Unbounded String; 


type Value Type is digits 12 range 
-999 999 999 999.0e999 .. 999 999 999 999.0e999; 


type Value Array is array (Natural range 1 .. 4) of Value Type; 
package F IO is new Ada.Text IO.Float IO (Value Type); 
package Value Functions is new Ada.Numerics.Generic, Elementary Functions ( 


Value Type); 


use Value Functions; 
use type Str.Unbounded String; 


Values : Value Array := (others => 0.0); 
Üperation : Str.Unbounded String; 
Dummy : Natural; 














6 http://en.wikibooks.org/wiki/Ada/,20Programming/,2FLibraries/,2FAda.Strings .Unbounded 
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function Get Line return Str.Unbounded_String is 


BufferSize : constant :- 2000; 
Retval : Str.Unbounded String :- Str.Null Unbounded String; 
Item : String (1 .. BufferSize); 
Last : Natural; 
begin 
Get Whole Line 
loop 


T IO.Get Line (Item => Item, Last => Last); 


Str.Append (Source => Retval, New Item => Item (1 
Last)); 


exit Get Whole Line when Last < Item'Last 
end loop Get Whole Line; 


return Retval; 
end Get Line; 


begin 
Main Loop 
loop 

T IO.Put (">"); 

Operation := Get Line; 

elsif Operation - "e" then 
-- insert e 
Push Value; 
Values (1) := Ada.Numerics.e; 

elsif Operation = "**" or else Operation = "^" then 


-- power of x^y 
Values (1) := Values (1) ** Values (2); 
Pop_Value; 
elsif Operation = "sqr" then 
-- square root 
Values (1) := Sqrt (Values (1)); 


elsif Operation = "root" then 
-- arbritary root 
Values (1) := 
Exp (Log (Values (2)) / Values (10); 
Pop Value; 
elsif Operation = "ln" then 


-- natural logarithm 
Values (1) := Log (Values (1)); 
elsif Operation = "log" then 
-- based logarithm 
Values (1) := 
Log (Base => Values (1), X => Values (2)); 
Pop_Value; 
elsif Operation = "exit" then 
exit Main_Loop; 
else 
Push_Value; 
F IO.Get 
(From => Str.To String (Operation), 
Item => Values (1), 
Last -» Dummy); 
end if; 


end loop Main Loop; 
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return; 
end Numeric 4; 











31.3 Higher math 
Higher math 
31.3.1 Trigonometric calculations 


The full set of trigonometric’ functions are defined inside the generic package Ada. All 
functions are defined for 2 and an arbitrary cycle value (a full cycle of revolution). 


Please note the difference of calling the Arctan () function. 


File: numeric 5.adb 





with Ada ; 
with Ada ; 
with Ada ; 


procedure Numeric, 5 is 


procedure Put Line (Value : in Value Type); 


use Value Functions; 
use type Str.Unbounded String; 


Values : Value Array := (others => 0.0); 
Cycle : Value Type := Ada.Numerics.Pi; 
Üperation : Str.Unbounded String; 

Dummy : Natural; 


procedure Put Line (Value : in Value Type) is 
begin 
if abs Value Type'Ezponent (Value) >= 
abs Value Type'Ezponent (10.0 ** F IO.Default Aft) 
then 
EF IO.Put 
(Item => Value, 
Fore => E I0O.Default Aft, 
Aft => F IO.Default Aft, 
Exp => 4); 
else 
EF IO.Put 
(Item => Value, 
Fore => F I0.Default Aft, 
Aft => F IO.Default Aft, 
Exp => 0); 
end if; 














T http://en.wikibooks.org/wiki/A2FTrigonometry 


275 


Mathematical calculations 





T. IO.New Line; 


return; 
end Put Line; 


begin 
Main Loop : 
loop 

Display. Loop: 

for I in reverse Value Array'Range loop 
Put Line (Values (1)); 

end loop Display Loop; 

T IO.Put (">"); 

Operation := Get Line; 


elsif Operation = "deg" then 
-- switch to degrees 
Cycle := 360.0; 


elsif Operation = "rad" then 
-- switch to degrees 
Cycle := Ada.Numerics.Pi; 

elsif Operation = "grad" then 


-- switch to degrees 
Cycle := 400.0; 


elsif Operation = "pi" or else Operation = "" then 

-- switch to degrees 

Push_Value; 

Values (1) := Ada.Numerics.Pi; 
elsif Operation = "sin" then 

-- sinus 

Values (1) := Sin (X => Values (1), Cycle => Cycle); 
elsif Operation = "cos" then 

-- cosinus 

Values (1) := Cos (X => Values (1), Cycle => Cycle); 
elsif Operation = "tan" then 

-- tangents 

Values (1) := Tan (X => Values (1), Cycle => Cycle); 
elsif Operation = "cot" then 

-- cotanents 

Values (1) := Cot (X => Values (1), Cycle => Cycle); 
elsif Operation = "asin" then 


-- arc-sinus 

Values (1) := Arcsin (X => Values (1), Cycle => Cycle); 
elsif Operation = "acos" then 

-- arc-cosinus 

Values (1) := Arccos (X => Values (1), Cycle => Cycle); 
elsif Operation = "atan" then 

-- arc-tangents 

Values (1) := Arctan (Y => Values (1), Cycle => Cycle); 
elsif Operation = "acot" then 

-- arc-cotanents 

Values (1) := Arccot (X => Values (1), Cycle => Cycle); 


end loop Main Loop; 


return; 
end Numeric, 5; 











The Demo also contains an improved numeric output which behaves more like a normal 
calculator. 
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31.3.2 Hyperbolic calculations 


You guessed it: The full set of hyperbolic functions is defined inside the generic package Ada . 





File: numeric, 6.adb 








with Ada ; 
with Ada ; 
with Ada ; 
with Ada ; 


procedure Numeric, 6 is 
package Str renames Ada.Strings.Unbounded; 
package T IO renames Ada.Text IO; 
package Exept renames Ada.Exceptions; 


end loop Main Loop; 


return; 
end Numeric. 6; 





begin 
Main Loop : 
loop 
Try : 
begin 
Display. Loop: 
elsif Operation = "sinh" then 
-- sinus hyperbolic 
Values (1) := Sinh (Values (1)); 
elsif Operation = "cosh" then 
-- cosinus hyperbolic 
Values (1) := Coth (Values (1)); 
elsif Operation = "tanh" then 
-- tangents hyperbolic 
Values (1) := Tanh (Values (1)); 
elsif Operation = "coth" then 
-- cotanents hyperbolic 
Values (1) := Coth (Values (1)); 
elsif Operation = "asinh" then 
-- arc-sinus hyperbolic 
Values (1) := Arcsinh (Values (1)); 
elsif Operation = "acosh" then 
--  arc-cosinus hyperbolic 
Values (1) := Arccosh (Values (1)); 
elsif Operation = "atanh" then 
-- arc-tangents hyperbolic 
Values (1) := Arctanh (Values (1)); 
elsif Operation = "acoth" then 
-- arc-cotanents hyperbolic 
Values (1) := Arccoth (Values (1)); 
exception 
when An Exception : others => 
T IO.Put Line 
(Exept.Exception Information (An Exception)); 
end Try; 
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As added bonus this version supports error handling and therefore won't just crash when an 
illegal calculation is performed. 


31.3.3 Complex arithmethic 


For complex arithmetic? Ada provides the package Ada . This package is part of the "special 
need Annexes' which means it is optional. The open source Ada compiler GNAT implements 
all "special need Annexes" and therefore has complex arithmetic available. 


Since Ada supports user defined operators, all (+ , - , * ) operators have their usual meaning 
as soon as the package Ada has been instantiated (package ... is new ...) and the type has 
been made visible (use type ...) 


Ada also provides the packages Ada and Ada which provide similar functionality to their 
normal counterparts. But there are some differences: 


e Ada supports only the exponential and trigonometric functions which make sense in 
complex arithmetic. 


e Ada isa child package of Ada and therefore needs its own with. Note: the Ada Get () 
function is pretty fault tolerant - if you forget the "," or the "()" pair it will still parse the 
input correctly. 


So, with only a very few modifications you can convert your "normals" calculator to a 
calculator for complex arithmetic: 


File: numeric 7.adb 





with Ada.Text IO.Complex I0; 

with Ada.Numerics.Generic Complex Types; 

with Ada.Numerics.Generic Complex Elementary Functions; 
with Ada.Strings.Unbounded; 

with Ada.Exceptions; 


procedure Numeric 7 is 


package Complex Types is new Ada.Numerics.Generic Complex Types ( 
Value Type); 

package Complex Functions is new 
Ada.Numerics.Generic Complex Elementary Functions ( 
Complex Types); 

package C IO is new Ada.Text IO.Complex IO (Complex Types); 


type Value Array is 
array (Natural range 1 .. 4) of Complex Types.Complex; 


procedure Put Line (Value : in Complex Types.Complex); 


use type Complex Types.Complex; 
use type Str.Unbounded String; 














8 http: //en.wikibooks. org/wiki/Algebra/2FComplex/20Numbers 
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use Complex Functions; 


Values : Value Array :- 
(others => Complex Types.Complex'(Re => 0.0, Im => 0.0)); 


procedure Put Line (Value : in Complex Types.Complex) is 
begin 
if (abs Value Type'Ezponent (Value.Re) >= 
abs Value Type'Ezponent (10.0 ** C IO.Default Aft)) 
or else (abs Value Type'Ezponent (Value.Im) >= 
abs Value Type'Ezponent (10.0 ** C IO.Default Aft)) 


then 
C IO.Put 
(Item => Value, 
Fore => C IO.Default Aft, 
Aft => C IO0.Default Aft, 
Exp => 4); 
else 
C IO.Put 
(Item => Value, 
Fore => C IO.Default Aft, 
Aft => C IO.Default Aft, 
Exp => 0); 
end if; 


T IO.Nev Line; 


return; 
end Put Line; 


begin 
elsif Operation = "e" then 
-- insert e 
Push, Value; 
Values (1) := 
Complex Types.Complex'(Re => Ada.Numerics.e, Im 
-» 0.0); 
elsif Operation = "pi" or else Operation = "" then 
-- insert pi 
Push, Value; 
Values (1) := 
Complex Types.Complex'(Re => Ada.Numerics.Pi, Im 
-» 0.0); 
elsif Operation = "sin" then 
-- sinus 
Values (1) := Sin (Values (1)); 
elsif Operation = "cos" then 
-- cosinus 
Values (1) := Cot (Values (1)); 
elsif Operation = "tan" then 
-- tangents 
Values (1) := Tan (Values (1)); 
elsif Operation = "cot" then 
--  cotanents 
Values (1) := Cot (Values (1)); 
elsif Operation = "asin" then 


-- arc-sinus 

Values (1) := Arcsin (Values (1)); 
elsif Operation = "acos" then 

--  arc-cosinus 





279 





Mathematical calculations 





Values (1) := Arccos (Values (1)); 
elsif Operation = "atan" then 

-- arc-tangents 

Values (1) := Arctan (Values (1)); 
elsif Operation = "acot" then 

-- arc-cotanents 

Values (1) := Arccot (Values (1)); 


return; 
end Numeric_7; 











31.3.4 Vector and Matrix Arithmetic 


Ada supports vector? and matrix!Ü Arithmetic for both normal real types and com- 
plex types. For those, the generic packages Ada.Numerics.Generic_Real_ Arrays and 
Ada.Numerics.Generic_Complex_ Arrays are used. Both packages offer the usual set of 
operations, however there is no I/O package and understandably, no package for elementary 
functions. 


Since there is no I/O package for vector and matrix I/O creating a demo is by far more 
complex — and hence not ready yet. You can have a look at the current progress which will 
be a universal calculator merging all feature. 


Status: Stalled - for a Vector and Matrix stack we need Indefinite Vectors — which are 
currently not part of GNAT/Pro. Well I could use the booch components ... 


File: numeric 8-complex calculator.ada 
File: numeric 8-get line.ada 
File: numeric 8-real calculator.ada 


File: numeric 8-real vector calculator.ada 





31.4 See also 


See also 


31.4.1 Wikibook 


e Ada Programming! 





9 http://en.wikibooks.org/wiki/Linear/20A1gebra/2FVectors/20in/208pace 
10  http://en.wikibooks.org/wiki/Linear_Algebra/2FDescribing_the_Solution_Set/23matrix 
11 http://en.wikibooks.org/wiki/Ada/20Programming 
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e Ada Programming/Delimiters/-!” 
e Ada Programming/Libraries/Ada.Numerics.Generic_Complex_Types!* 
e Ada Programming/Libraries/Ada.Numerics.Generic_Elementary_F ‘unctions!4 


31.4.2 Ada 95 Reference Manual 


4.4 Expressions “{http://www.adaic.org/resources/add_content/standards/ 
951rm/ARM_HTML/RM-4-4. html} 

Annex A.5-1 Elementary Functions “{http://www.adaic.org/resources/add_ 
content/standards/951rm/ARM_HTML/RM-A-5-1.htm1) 

Annex A.10-1 The Package Text IO “{http://www.adaic.org/resources/add_ 
content/standards/951rm/ARM HTML/RM-A-10-1.html) 

Annex G.1 Complex Arithmetic ^[http://www.adaic.org/resources/add content/ 
standards/951rm/ARM HTML/RM-G-1.htm1) Annex G.3 Vector and Matrix Manip- 


ulation “{http://www.adaic.org/resources/add_content/standards/951rm/ARM_ 
HTML/RM-G-3.html) myitemize 


31.4.3 Ada 2005 Reference Manual 


e 4.4 Expressions “*{http://www.adaic.org/resources/add_content/standards/ 
O5rm/htm1/RM-4-4.htm1} 

e Annex A.5.1 Elementary Functions “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-A-5-1.html]) 

e Annex A.10.1 The Package Text IO “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-A-10-1.html) 

e Gl1Complex Arithmetic 

e G3Vector and Matrix Manipulation 





12 
13 


14 


http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F- 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Numerics.Generic_ 
Complex_Types 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Numerics.Generic_ 
Elementary_Functions 
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32 Statements 


Note: there are some simplifications in the explanations below. Don't take anything too 
literally. 

Most programming languages have the concept of a statement. A statement is a 
command that the programmer gives to the computer. For example: 








Ada.Text IO.Put Line ("Hi there!"); 








This command has a verb ('") and other details (what to print). In this case, the command 
"" means "show on the screen," not "print on the printer." The programmer either gives 
the statement directly to the computer (by typing it while running a special program), 
or creates a text file with the command in it. You could create a file called "hi.txt", put 
the above command in it, and give the file to the computer. 

If you have more than one command in the file, each will be performed in order, top to 
bottom. So the file could contain: 








Ada.Text IO.Put Line ("Hi there!"); 
Ada.Text IO.Put Line ("Strange things are afoot..."); 








'This does seem like a lot of typing but don't worry: Ada allows you to declare shorter 
aliasnames if you need a long statement very often. 
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33 Variables 


Variables are references that stand in for a value that is contained at a certain memory 
address. 

Variables are said to have a value and may have a data type!. If a variable has a type, 
then only values of this type may be assigned to it. Variables do not always have a type. 
A value can have many values of many different types: integers (7), ratios (1/2), (approx- 
imations of) reals (10.234), complex numbers (44-2i), characters ('a'), strings ("hello"), 
and much more. 

Different languages use different names for their types and may not include any of the 
above. 


33.1 Assignment statements 
Assignment statements 


An assignment statement is used to set a variable to a new value. 


Assignment statements are written as name =2 value. 





X = 10; 








1. REDIRECT Template:Computer Programming/ Variables/2* 
Ada is the same. The declaration is as follows: 








declare 

X : Integer =° 10; 
begin 

Do Something (X); 
end; 








33.2 Uses 
Uses 


Variables store everything in your program. The purpose of any useful program is to 
modify variables. 


33.3 See also 





1 
2 
4 


http://en.wikibooks.org/wiki/Computer/20Programming/2FTypes 
http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/3A/43D 
http://en.wikibooks.org/wiki/Template/3AComputer/20Programming/2FVariables/2F2 
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Variables 


See also 


33.3.1 Ada Reference Manual 


e 3.3 Objects and Named Numbers “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-3-3.html] 
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34 Lexical elements 


34.1 Character set 


Character set 


'The character set used in Ada programs is composed of: 

e Upper-case letters: A, ..., Z and lower-case letters: a, ..., Z. 

e Digits: 0, ..., 9. 

e Special characters. 

Take into account that in Ada 95 the letter range includes accented characters and other 
letters used in Western Europe languages, those belonging to the ISO Latin-1* character 
set, as c, fi, 0, etc. 

In Ada 2005? the character set has been extended to the full Unicode? set, so the identifiers 
and comments can be written in almost any language in the world. 

Ada is a case-insensitive language, i. e. the upper-case set is equivalent to the lower-case 
set except in character string literals and character literals. 


34.2 Lexical elements 
Lexical elements 


In Ada we can find the following lexical elements: 
e Identifiers 

e Numeric Literals 

* Character Literals 

e String Literals 

e Delimiters* 

e Comments 

e Reserved Words? 

Example: 








Temperature In Room := 25;  --Temperature to be preserved in the room. 








'This line contains 5 lexical elements: 

e The identifier Temperature In Room. 
e The compound delimiter :=. 

e The number 25. 

e The single delimiter ;. 





oR WN rä 


http://en.wikipedia.org/wiki/1S0/208859-1 
Chapter 23 on page 219 
http://en.wikipedia.org/wiki/Unicode 
Chapter 36 on page 297 

Chapter 35 on page 293 
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e The comment --Temperature to be preserved in the room.. 


34.2.1 Identifiers 


Definition in BNF$: 








identifier ::= letter { [ underscore ] letter | digit } 
letter ::= A | RUE Schank 

digit ::2 0 | ... | 9 

underscore ::= . 








From this definition we must exclude the keywords that are reserved words in the language 
and cannot be used as identifiers. 

Examples: 

The following words are legal Ada identifiers: 








Time_Of_Day TimeOfDay EL Nifio Forecast Façade counter ALARM 








The following ones are NOT legal Ada identifiers: 








_Time_Of_Day 2nd_turn Start_ Access Price_In_$ General__Alarm 








Exercise: could you give the reason for not being legal for each one of them? 


34.2.2 Numbers 


The numeric literals are composed of the following characters: 

e digitsO .. 9 

e the decimal separator ., 

e the exponentiation sign e or E, 

e the negative sign - (in exponents only) and 

e the underscore . 

'The underscore is used as separator for improving legibility for humans, but it is ignored 
by the compiler. You can separate numbers following any rationale, e.g. decimal integers 
in groups of three digits, or binary integers in groups of eight digits. 

For example, the real number such as 98.4 can be represented as: 9.84E1, 98.460, 
984.0e-1 or 0.984E+2, but not as 984e-1. 

For integer numbers, for example 1900, it could be written as 1900, 19E2, 190e+1 or 
1_900E+0. 

A numeric literal could also be expressed in a base different to 10, by enclosing the number 
between # characters, and preceding it by the base, which can be a number between 2 
and 16. For example, 2#101# is 1015, that is 510; a hexadecimal number with exponent 
is 16#B#E2, that is 11 x 16? = 2,816. 

Note that there are no negative literals; e.g. -1 is not a literal, rather it is the literal 1 
preceded by the unary minus operator. 





6 


http: //en.wikipedia. org/wiki/Backus-Naur/20form 
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34.2.3 Character literals 


Their type is Standard .Character, Wide Character or Wide Wide Character. They 
are delimited by an apostrophe (')’. 
Examples: 








tA! tp! WA 








34.2.4 String literals 


String? literals are of type Standard .String, Wide String or Wide Wide String. They 
are delimited by the quotation mark (")?. 
Example: 








"This is a string literal" 








34.2.5 Delimiters 


Single delimiters are one of the following special characters: 








& i ( ) * * , S . / : ; < = 
> 








Compound delimiters are composed of two special characters, and they are the following 
ones: 








=> a ** r= /= >= <= << >> <> 








You can see a full reference of the delimiters in Ada Programming/Delimiters!?, 


34.2.6 Comments 


Comments in Ada start with two consecutive hyphens (--) and end in the end of line. 








--This is a comment in a full line 


My Savings := My Savings * 10.0; --This is a comment in a line after a sentece 
My_Savings := My_Savings * --This is a comment inserted inside a sentence 
1_000_000.0; 








A comment can appear where an end of line can be inserted. 





Foon 


o 


http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/27 
Chapter 15 on page 119 
http://en.wikibooks.org/wiki/Ada/20Programming/2FSpecial/2F/22 
Chapter 36 on page 297 
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34.2.7 Reserved words 


Reserved words are equivalent in upper-case and lower-case letters, although the typical 
style is the one from the Reference Manual, that is to write them in all lower-case letters. 
In Ada some keywords have a different meaning depending on context. You can refer to 
Ada Programming/Keywords!! and the following pages for each keyword. 


Ada Keywords!” 


abort else new return 
abs elsif not reverse 
abstract (Ada 95) end null 
accept entry select 
access exception of separate 
aliased (Ada 95) exit or some 
(Ada 2012) 
all others subtype 
and for out synchronized 
(Ada 2005) 
array function overriding 
(Ada 2005) 
at tagged 
(Ada 95) 
generic package task 
begin goto pragma terminate 
body private then 
if procedure type 
case in protected 
(Ada 95) 
constant interface until 
(Ada 2005) (Ada 95) 
is raise use 
declare range 
delay limited record when 
delta loop rem while 
digits renames with 
do mod requeue xor 
(Ada 95) 


34.3 See also 





11 Chapter 35 on page 293 
12  http://en.wikibooks.org/wiki/Ada/20Programming/2FA11/20Keywords 
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See also 


34.3.1 Wikibook 


e Ada Programming!” 
e Ada Programming/Delimiters!4 
e Ada Programming/Keywords!? 


34.3.2 Ada Reference Manual 


e Section 2: Lexical Elements ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-2.html) 

e 2.1 Character Set ^(http://www.adaic.org/resources/add content/standards/ 
O5rm/htm1/RM-2-1.htm1} 

e 2.2 Lexical Elements, Separators, and Delimiters *{http://www.adaic.org/ 
resources/add_content/standards/05rm/htm1/RM-2-2.htm1} 

es:Programación en Ada/Elementos del lenguaje!® 





13 
14 
15 
16 


http://en.wikibooks.org/wiki/Ada/20Programming 

Chapter 36 on page 297 

Chapter 35 on page 293 
http://es.wikibooks.org/wiki/Programaci/F3n/20en/20Ada/2FElementos/20de1/201enguaje 
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35 Keywords 


35.1 Language summary keywords 
Language summary keywords 


Most Ada “keywords” have different functions depending on where they are used. A good 
example is fort which controls the representation clause when used within a declaration 
part and controls a loop when used within an implementation. 

In Ada, a keyword is a reserved word, so it cannot be used as an identifier. Some of 
them are used as attribute? names. 


35.2 List of keywords 
List of keywords 


Ada Keywords? 





1 http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Ffor 
2 Chapter 38 on page 305 
3  http://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAllA/20Keywords 
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Keywords 


abort 
abs 


abstract (Ada 95) 


accept 
access 


aliased (Ada 95) 


all 
and 


array 
at 
begin 
body 
case 
constant 
declare 
delay 
delta 


digits 
do 


35.3 See also 


See also 


35.3.1 Wikibook 


e Ada Programming? 


else 
elsif 

end 

entry 
exception 
exit 


for 


function 


generic 
goto 


if 
in 


interface 
(Ada 2005) 


1s 


limited 
loop 


mod 


e Ada Programming/Aspects? 
e Ada Programming/Attributes? 


e Ada Programming/Pragmas 


7 





NO ow 


294 


new 
not 
null 


of 
or 


others 
out 


overriding 


(Ada 2005) 


package 
pragma 
private 
procedure 
protected 
(Ada 95) 


raise 
range 
record 
rem 
renames 
requeue 


(Ada 95) 


http: //en.wikibooks. org/wiki/Ada{,20Programming 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAspects 
Chapter 38 on page 305 
Chapter 39 on page 317 


return 
reverse 


select 
separate 
some 

(Ada 2012) 
subtype 
synchronized 


(Ada 2005) 


tagged 
(Ada 95) 
task 
terminate 
then 


type 


until 
(Ada 95) 


use 


when 
while 
with 
xor 


35.3.2 Ada Reference Manual 
Ada 83 


e Annex 2: Reserved Words ^[http://archive.adaic.com/standards/831rm/html/ 
lrm-2.html) 


e Annex E: Syntax Summary ^(http://archive.adaic.com/standards/831rm/html/ 
lrm-E.html]) 

Ada 95 

e 2.9 Reserved Words? 

e Annex P: (informative) Syntax Summary? 

Ada 2005 

e 2.9 Reserved Words!? 

e Annex P: (informative) Syntax Summary?! 

Ada 2012 

e 2.9 Reserved Words!” 

e Annex P: (informative) Syntax Summary? 

35.3.3 Ada Quality and Style Guide 


e 3.1.3. Capitalization  ^(http://www.adaic.org/resources/add  content/docs/ 
95style/html/sec 3/3-1-3.html) 





http://www.adaic.org/resources/add_content/standards/951rm/ARM_HTML/RM- 2-9. html 
http://www.adaic.org/resources/add_content/standards/951rm/ARM_HTML/RM-P.html 
http://www.adaic.org/resources/add_content/standards/05rm/html/RM-2-2-9.html 
http://www.adaic.org/resources/add_content/standards/05rm/html/RM-2-P.html 
http: //www.ada-auth.org/standards/12rm/html/RM-2-9.html 

http: //www.ada-auth.org/standards/12rm/html/RM-P.html 
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36 Delimiters 


36.1 Single character delimiters 
Single character delimiters 


&1 


ampersand (also operator &?) 


13 


apostrophe, tick 


(* 


left parenthesis 


y 


right parenthesis 


*6 


asterisk, multiply (also operator *") 


48 


plus sign (also operator +°) 


10 


hyphen, minus (also operator -!?) 


13 


full stop, point, dot 


pt 


solidus, divide (also 


operator /!?) 





GO OO JO OG Gä bh rä 


LA ki 
kä © 


= 
N 


ka ka ka ka ti 
NOD OF BR W 


http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 


wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 


org/wiki/Ada/20Programming/2FDelimiters/2F/26 
org/wiki/Ada/20Programming/2FDelimiters/2F/26 
org/wiki/Ada/20Programming/2FDelimiters/2F/27 
org/wiki/Ada/20Programming/2FDelimiters/2F/28 
org/wiki/Ada/20Programming/2FDelimiters/2F/29 
org/wiki/Ada/20Programming/2FDelimiters/2F/2A 
org/wiki/Ada/20Programming/2FOperators/2F/42A 
org/wiki/Ada/20Programming/2FDelimiters/2F/2B 
org/wiki/Ada/20Programming/2FDelimiters/2F/2B 
org/wiki/Ada/20Programming/2FDelimiters/2F/2C 
org/wiki/Ada/20Programming/2FDelimiters/2F- 
org/wiki/Ada/20Programming/2FOperators/2F- 
org/wiki/Ada/20Programming/2FDelimiters/2Fdot 
org/wiki/Ada/20Programming/2FDelimiters/2F/2F 
org/wiki/Ada/20Programming/2FOperators/2F42F 
org/wiki/Ada/20Programming/2FDelimiters/2F/3A 
org/wiki/Ada/20Programming/2FDelimiters/2F/3B 
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Delimiters 


semicolon 
<18 
less than sign (also operator) 


19 


equal sign (also operator = 


>21 


greater than sign (also operator) 
22 


vertical line 


20) 


36.2 Compound character delimiters 
Compound character delimiters 


double dot 


**25 


double star, exponentiate (also operator 


27 


assignment 
ys 


inequality (also operator) 


£220) 





>—29 
greater than or equal to (also operator) 
<—30 
less than or equal to (also operator) 
left label bracket 
right label bracket 
<>33 
18  http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2Fless/20than 
19 http://en.wikibooks. org/wiki/Ada/20Programming/2FDelimiters/2F/3D 
20 http://en.wikibooks. org/wiki/Ada/20Programming/2FO0perators/2F/3D 
21  http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2Fgreater/20than 
22 http://en.wikibooks. org/wiki/Ada/20Programming/,2FDelimiters/2Fvertical/20line 
23 http: //en.wikibooks. org/wiki/Ada/20Programming/2FDelimiters/2Farrow 
24  http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2Fdouble%20dot 
25  http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/2A%2A 
26  http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators/2F7/2A%2A 
27  http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/3A%3D 
28  http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/2F/3D 
99 http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2Fgreater/20than/200r7, 
2equal%20to 
30 http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2Fless/20than/200r% 
2equal%20to 
31 http: //en.wikibooks. org/wiki/Ada/20Programming/,2FDelimiters/2Fleft/20label 


32 
33 
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http://en.wikibooks. 
http://en.wikibooks. 


org/wiki/Ada/20Programming/2FDelimiters/2Fright/20label 
org/wiki/Ada/20Programming/2FDelimiters/2Fbox 


box 


36.3 Others 
Others 


The following ones are special characters but not delimiters. 
"34 


quotation mark, used for string literals??. 
4:96 

number sign, used in based numeric literals’. 
The following special characters are unused in Ada code - they are illegal except within 
string literals and comments (they are used in the Reference Manual Backus-Naur syntax 
definition of Ada): 


left square bracket 


right square bracket 
left curly bracket 


right curly bracket 


36.4 See also 


See also 


36.4.1 Wikibook 


e Ada Programming?? 


36.4.2 Ada 95 Reference Manual 


e 2.1 Character Set ^(http://www.adaic.org/resources/add content/standards/ 
951rm/ARM HTML/RM-2-1.html) 

e 2.2 Lexical Elements, Separators, and Delimiters “(http://www.adaic.org/ 
resources/add_content/standards/951rm/ARM_HTML/RM-2-2.htm1} 


36.4.3 Ada 2005 Reference Manual 


e 2.1 Character Set ^(http://www.adaic.org/resources/add content/standards/ 
O5rm/htm1/RM-2-1.htm1} 

e 2.2 Lexical Elements, Separators, and Delimiters “(http://www.adaic.org/ 
resources/add_content/standards/05rm/htm1/RM-2-2.htm1} 





http://en.wikibooks.org/wiki/Ada/20Programming/2FSpecial/2F/22 

Chapter 34.2.4 on page 289 
http://en.wikibooks.org/wiki/Ada/20Programming/2FSpecial/2Fnumber%20sign 
Chapter 34.2.2 on page 288 

http://en.wikibooks.org/wiki/Ada/20Programming 
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37 Operators 


37.1 Standard operators 


Standard operators 


Ada! allows operator overloading? for all standard operators and so the following sum- 
maries can only describe the suggested standard operations for each operator. It is quite 
possible to misuse any standard operator to perform something unusual. 

Each operator is either a keyword? or a delimiter* -- hence all operator pages are redirects 
to the appropriate keyword? or delimiter®. 

Operators have arguments which in the RM are called Left and Right for binary operators, 
Right for unary operators (indicating the position with respect to the operator symbol). 
The list is sorted from lowest precedence to highest precedence. 


37.1.1 Logical operators 


and” 

and x ^y, (also keyword and?) 
or? 

or z V y, (also keyword or!?) 
xor! 


exclusive or (x ^y) V (z ^y), (also keyword xort?) 


37.1.2 Relational operators 


j= 


Not Equal x Z y, (also special character /=**) 
_15 


Equal x = y, (also special character —16) 





OO =D OU Gä hä Fa 


ka kä Fa ah kä Gi 
BO Hä ka GC 


he 
O) c 


http://en.wikibooks.org/wiki/Ada/20Programming 
http://en.wikipedia.org/wiki/operator/20o0verloading 

Chapter 35 on page 293 

Chapter 36 on page 297 

Chapter 35 on page 293 

Chapter 36 on page 297 
http://en.wikibooks.org/wiki/Ada/20Programming/2FOperators/2Fand 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fand 
http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators/2For 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2For 
http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators/2Fxor 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fxor 
http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators72F/2F/3D 
http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/2F/3D 
http://en.wikibooks.org/wiki/Ada/20Programming/,2FOperators{2F/3D 
http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/3D 
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Operators 


<17 


Less than x < y, (also special character <18) 


<=19 


Less than or equal to (x < y), (also special character <=?°) 


>21 


Greater than (x > y), (also special character >??) 


>-23 


Greater than or equal to (x > y), (also special character >=**) 


37.1.3 Binary adding operators 


4.29 


Add z -- y, (also special character +7°) 


.27 


Subtract x — y, (also special character -28) 


8729 


Concatenate , x & y, (also special character 82%) 


37.1.4 Unary adding operators 


pa 


Plus sign +2, (also special character +32) 


_33 


Minus sign —z, (also special character -?^) 


37.1.5 Multiplying operator 


*35 


Multiply, x x y, (also special character 


#38) 





17 
18 


19 


20 


21 
22 


23 


24 


25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 


http://en.wikibooks. 


http://en.wikibooks. 
http://en.wikibooks. 


2equal%20to 
http://en.wikibooks. 


2equal%20to 
http://en.wikibooks. 


http://en.wikibooks. 
http://en.wikibooks. 


20equa1/420to 
http://en.wikibooks. 


20equa1/420to 


http: 
http: 
http: 


http 


http: 


http 


http: 
http: 
http: 
http: 
http: 
http: 
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//en. 
//en. 
//en. 
://en. 
//en. 
://en. 
//en. 
//en. 
//en. 
//en. 
//en. 
//en. 


wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 


org/wiki/Ada/20Programming/2FOperators/2F1ess/20than 


org/wiki/Ada/20Programming/2FDelimiters/2Fless/20than 
org/wiki/Ada/20Programming/2FOperators/2F1ess/20than/200r% 


org/wiki/Ada/20Programming/2FDelimiters/2Fless/20than/200r% 


org/wiki/Ada/20Programming/2FOperators/2Fgreater/20than 


org/wiki/Ada/20Programming/2FDelimiters/2Fgreater/20than 
org/wiki/Ada/20Programming/2FOperators/2Fgreater/20than)/200r% 


org/wiki/Ada/20Programming/2FDelimiters/2Fgreater/20than%/200r7, 


org/wiki/Ada/20Programming/2FDelimiters/2F7/2B 
org/wiki/Ada/20Programming/2FDelimiters/2F7/2B 
org/wiki/Ada/20Programming/2FDelimiters/2F- 
org/wiki/Ada/20Programming/2FDelimiters/2F- 
org/wiki/Ada/20Programming/2FDelimiters/2F7/26 
org/wiki/Ada/20Programming/2FDelimiters/2F7/26 
org/wiki/Ada/20Programming/2FDelimiters/2F7/2B 
org/wiki/Ada/20Programming/2FDelimiters/2F7/2B 
org/wiki/Ada/20Programming/2FDelimiters/2F- 
org/wiki/Ada/20Programming/2FDelimiters/2F- 
org/wiki/Ada/20Programming/2FDelimiters/2F/2A 
org/wiki/Ada/20Programming/2FDelimiters/2F/2A 


/9 

Divide z/y, (also special character /?5) 
mod?? 

modulus (also keyword mod??) 
rem?! 

remainder (also keyword rem*?) 


37.1.6 Highest precedence operator 


43 
Power z", (also special character ***4) 
not* 
logical not =x, (also keyword not*) 
abs47 


absolute value |x| (also keyword abs*®) 


37.2 Short-circuit control forms 
Short-circuit control forms 


These are not operators and thus cannot be overloaded. 
and then*? 

e.g. if Y /= 0 and then X/Y > Limit then 
or else?0 

e.g. if Ptr = null or else Ptr.I = O then 


37.3 Membership tests 
Membership tests 


'The Membership Tests also cannot be overloaded because they are not operators. 
. 51 
in 


element of, var € type, e.g. if I in Positive then, (also keyword in) 





http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/2F 
http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/2F 
http://en.wikibooks.org/wiki/Ada/20Programming/2FO0perators/2Fmod 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fmod 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Frem 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Frem 
http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/24/42A 
http://en.wikibooks.org/wiki/Ada/20Programming/2FDelimiters/2F/24/42A 
http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators/2Fnot 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fnot 
http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators/2Fabs 
http://en.wikibooks.org/wiki/Ada/20Programming/2FKeywords/2Fabs 


http://en.wikibooks.org/wiki/Ada/20Programming/2FO0perators/2Fand/23Boolean_shortcut_ 


operator 


http://en.wikibooks.org/wiki/Ada/20Programming/2FO0perators/2For/23Boolean_shortcut_ 


operator 
http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators/2Fin 


http://en.wikibooks.org/wiki/Ada/20Programming/2F0perators/2Fin 


Operators 


not element of, var é type, e.g. if I not in Positive then, (also keywords not in) 


37.3.1 Range membership test 





if Today not in Tuesday .. Thursday then 





37.3.2 Subtype membership test 





Is, Non Negative :- X in Natural; 





37.3.3 Class membership test 





exit when Object in Circle'Class; 











37.4 See also 


See also 


37.4.1 Wikibook 


e Ada Programming?” 


37.4.2 Ada 95 Reference Manual 


e 4.5 Operators and Expression Evaluation “{http://www.adaic.org/resources/add_ 
content/standards/05rm/htm1/RM-4-5.htm1} 


37.4.3 Ada 2005 Reference Manual 


e 4.5 Operators and Expression Evaluation “{http://www.adaic.org/resources/add_ 
content/standards/05rm/htm1/RM-4-5.htm1} 


37.4.4 Ada Quality and Style Guide 


e 2.1.3 Alignment of Operators “{http://www.adaic.org/resources/add_content/ 
docs/95style/html/sec 2/2-1-3.html) 

e 5.7.4 Overloaded Operators ^[http://www.adaic.org/resources/add content/ 
docs/95style/html/sec_5/5-7-4.htm1} 

e 5.7.5 Overloading the Equality Operator ^(http://www.adaic.org/resources/add. 
content/docs/95style/html/sec_5/5-7-5.html+ 


Ada Operators?* 


and**? and then®® »57 458 abs?? ER 

or®! or else® =63 -64 mod® 

xor -67 <68 x69 rem”? iud 
Bot? /=3 <=74 x75 /76 not dg 





53  http://en.wikibooks.org/wiki/Ada/20Programming 
54  http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FAll/200perators 
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38 Attributes 


38.1 Language summary attributes 
Language summary attributes 


The concept of attributes is pretty unique to Ada!. Attributes allow you to get —and 
sometimes set— information about objects or other language entities such as types. A 
good example is the Size attribute. It describes the size of an object or a type in bits. 








A : Natural := Integer'Size; --A is now 32 (with the GNAT? compiler for the 186 architecture) 








However, unlike the sizeof operator from C?/C4---* the Size attribute can also be set: 








type Byte is range -128 .. 127; --The range fits into 8 bits but the 
--compiler is still free to choose. 
for Byte'Size use 8; --Now we force the compiler to use 8 bits. 








Of course not all attributes can be set. An attribute starts with a tick ' and is followed 
by its name. The compiler determines by context if the tick is the beginning of an 
attribute or of a character literal. 








A : Character Character'Val (32) --A is now a space 
B : Character "e ' '; --B is also a space 








38.2 List of language defined attributes 
List of language defined attributes 


Ada 2005 
This is a new Ada 2005? attribute. 
Ada 2012 
This is a new Ada 20129 attribute. 
Obsolescent 
This is a deprecated attribute and should not be used in new code. 





CO Ou wr 


http://en.wikibooks.org/wiki/Ada/20Programming 
http://en.wikibooks.org/wiki/C/20Programming 
http://en.wikibooks.org/wiki/C/2B/2B/20Programming 

Chapter 23 on page 219 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAda/202012 
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Attributes 


38.2.1 A — B 


"Access 


7 


' Address? 

'Adjacent? 
1A ft 10 
' Alignment 
'Base!? 
'Bit Order? 


'Body_ Version! 


4 





38.2.2 C 

e 'Callablel? 

e 'Caller!® 

e 'Ceiling!” 

e 'Class!? 

e ' Component Size!” 

e 'Compose?? 

e 'Constrained?! 

e 'Copy. Sign? 

e 'Count?? 

38.2.3 D — F 

e 'Definite?* 

e 'Delta?? 

e 'Denorm?® 

e 'Digits?’ 

e 'Emax?? (Obsolescent) 
T http://en.wikibooks.org/wiki/Ada/20Programing/2FAttributes/2F/27Access 
8 http://en.wikibooks.org/wiki/Ada/20Programing/2FAttributes/2F/27Address 
9 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Adjacent 
10  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Aft 
11 http: //en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27A1ignment 
12  http://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes/2F/27Base 
13  http://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes/2F/27Bit Order 
14  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2FA427Body Version 
15 http://en.wikibooks. org/wiki/Ada/20Programming/2FAttributes/2F/,27Callable 
16 http: //en.wikibooks. org/wiki/Ada/20Programming/2FAttributes/2F/,27Caller 
l7  http://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes/2F/27Ceiling 
18 — http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Class 
19 — http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Component_Size 
20  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Compose 
21  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Constrained 
22  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Copy_Sign 
23  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Count 
24  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Definite 
25  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Delta 
26  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Denorm 
27  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Digits 
28  http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Emax 
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e 'Exponent?? 
e 'External Tag? 
e 'Epsilon?! (Obsolescent) 


e 'First?? 

e (First Bit?? 
e 'Floor?* 

e 'Fore?? 


e 'Fraction? 


6 


38.2.4 G-L 


e 'Has Same Storage?" (Ada 2012) 
e 'Identity?® 


e 'Image?? 

e 'Input% 

e 'Large*! (Obsolescent) 
e 'LastY 


e 'Last Bit? 
e 'Leading Part** 
e 'Length* 


38.2.5 M 


e 'Machine*® 


e (Machine Emax? 
e (Machine Emin? 
e (Machine Mantissa? 
e (Machine Overflows 
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wikibooks. 
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org/wiki/Ada/20Programming/2FAttributes/2F/27Exponent 


org/wiki/Ada/20Programming/2FAttributes/2F/27First 
org/wiki/Ada/20Programming/2FAttributes/2F/27First_Bit 
org/wiki/Ada/20Programming/2FAttributes/2F/27Floor 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Fore 


org/wiki/Ada/20Programming/2FAttributes/2F/27Fraction 


org/wiki/Ada/20Programming/2FAttributes/2F/27Identity 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Image 
.org/wiki/Ada/20Programming/2FAttributes/2F/27Input 


org/wiki/Ada/20Programming/2FAttributes/2F/27Large 
org/wiki/Ada/20Programming/2FAttributes/2F/27Last 
org/wiki/Ada/20Programming/2FAttributes/2F/27Last_Bit 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Leading_Part 


org/wiki/Ada/20Programming/2FAttributes/2F/27Length 
org/wiki/Ada/20Programming/2FAttributes/2F/27Machine 
org/wiki/Ada/20Programming/2FAttributes/2F/27Machine_Emax 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Machine_Emin 
.org/wiki/Ada/20Programming/2FAttributes/2F/27Machine_Mantissa 


org/wiki/Ada/20Programming/2FAttributes/2F/27Machine_Overíflows 
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Attributes 


! 





"Machine Radix?! 
'Machine Rounding?? (Ada 2005) 
'Machine Rounds? 

'Mantissa?4 (Obsolescent) 

'"Max?? 
'Max Aligment For Allocation? (Ada 2012) 
Max Size In Storage Elements?" 

'Min?8 
'Mod?? (Ada 2005) 
"Modell 

"Model Emin®! 
'Model Epsilon® 
'Model Mantissa$? 
'Model Small®4 
Modulus® 


38.2.6 O-R 


'Old99 (Ada 2012) 
'Output67 

'Overlaps Storage? (Ada 2012) 
"Partition ID6? 
'Pos 7? 


'Position” 


'Pred”? 
'Priority’? (Ada 2005) 


1 
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org/wiki/Ada/20Programming/2FAttributes/2F/27Max 
org/wiki/Ada/20Programming/2FAttributes/2F/27Max_Aligment_For_ 


org/wiki/Ada/20Programming/2FAttributes/2F/27Max_Size_In_Storage_ 


org/wiki/Ada/20Programming/2FAttributes/2F/27Min 
org/wiki/Ada/20Programming/2FAttributes/2F/27Mod 
org/wiki/Ada/20Programming/2FAttributes/2F/27Model 
org/wiki/Ada/20Programming/2FAttributes/2F/27Model_Emin 
org/wiki/Ada/20Programming/2FAttributes/2F/27Model_Epsilon 
org/wiki/Ada/20Programming/2FAttributes/2F/27Model_Mantissa 
org/wiki/Ada/20Programming/2FAttributes/2F/27Model_Smal1 
org/wiki/Ada/20Programming/2FAttributes/2F/27Modulus 
org/wiki/Ada/20Programming/2FAttributes/2F/270l1d 
org/wiki/Ada/20Programming/2FAttributes/2F/270utput 
org/wiki/Ada/20Programming/2FAttributes/2F/270verlaps_Storage 
org/wiki/Ada/20Programming/2FAttributes/2F/27Partition_ID 
org/wiki/Ada/20Programming/2FAttributes/2F/27Pos 
org/wiki/Ada/20Programming/2FAttributes/2F/27Position 
org/wiki/Ada/20Programming/2FAttributes/2F/27Pred 
org/wiki/Ada/20Programming/2FAttributes/2F/27Priority 


e 'Range"* 
e 'Read”? 
e 'Remainder”? 
e 'Result”” (Ada 2012) 
e 'Round^? 

e 'Rounding”? 


38.2.7 S 


e (Sale Emax?? (Obsolescent) 
e 'Safe First?! 
e 'Safe Large"? (Obsolescent) 
e 'Safe Last®? 
e 'Safe Small") (Obsolescent) 
e 'Scale?? 

e 'Scaling®® 
e 'Siened ` Zeros?" 
e 'Size?? 

e 'Small?? 
e 'Storage Poo]?? 
e 'Storage Size?! 
e 'Stream  Size?? (Ada 2005) 


e 'Succ?? 
38.2.8 T— V 
. "Tag? 


e 'Terminated? 
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org/wiki/Ada/20Programming/2FAttributes/2F/27Round 
org/wiki/Ada/20Programming/2FAttributes/2F/27Rounding 


.org/wiki/Ada/20Programming/2FAttributes/2F/27S8afe_Emax 


org/wiki/Ada/20Programming/2FAttributes/2F/278afe_First 


org/wiki/Ada/20Programming/2FAttributes/2F/278afe_Last 


.org/wiki/Ada/20Programming/2FAttributes/2F/278afe_Small 
.org/wiki/Ada/20Programming/2FAttributes/2F/278cale 


org/wiki/Ada/20Programming/2FAttributes/2F/278caling 
org/wiki/Ada/20Programming/2FAttributes/2F/27Signed_Zeros 
org/wiki/Ada/20Programming/2FAttributes/2F/278ize 


.org/wiki/Ada/20Programming/2FAttributes/2F/278ma11 


org/wiki/Ada'//20ProgrammingA2FAttributesA42F/27Storage Pool 
org/wiki/Ada/20Programming/2FAttributes/2F/27Storage_Size 
org/wiki/Ada/20Programming/2FAttributes/2F/278Stream_Size 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Succ 
.org/wiki/Ada/20Programming/2FAttributes/2F/27Tag 


org/wiki/Ada/20Programming/2FAttributes/2F/27Terminated 
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Attributes 


"Truncation? 


6 


"Unbiased Rounding?" 
'Unchecked Access?? 
"Va]292 
'Valid!00 
'Value!?! 
' Version 


102 


38.2.0 W-Z 


"Wide Image! 
"Wide Valuet0! 
"Wide_Wide_Image!%? (Ada 2005) 
"Wide Wide Value! (Ada 2005) 
"Wide Wide Width!9" (Ada 2005) 
"Wide Width!9 
'Width! 

'Write!!9 


38.3 List of implementation defined attributes 


List of implementation defined attributes 


The following attributes are not available in all Ada compilers, only in those that had 
implemented them. 
Currently, there are only listed the implementation-defined attributes of a few compilers. 
You can help Wikibooks adding!!! specific attributes of other compilers: 

GNAT 


HP Ada 


Implementation-defined attribute!!? of the GNATH? compiler from AdaCore/FSF. 
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97 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
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wikibooks. 
wikibooks. 
wikibooks. 
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wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks. 
.org/wiki/Ada/20Programming/2FAttributes/2F/27Write 
wikibooks. 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Truncation 


org/wiki/Ada/20Programming/2FAttributes/2F/27Unbiased_Rounding 
org/wiki/Ada/20Programming/2FAttributes/2F/27Unchecked_Access 
org/wiki/Ada/20Programming/2FAttributes/2F/27Va1 
org/wiki/Ada/20Programming/2FAttributes/2F/27Valid 
org/wiki/Ada/20Programming/2FAttributes/2F/27Value 
org/wiki/Ada/20Programming/2FAttributes/2F/27Version 


org/wiki/Ada/20Programming/2FAttributes/2F/27Wide_Value 
org/wiki/Ada/20Programming/2FAttributes/2F/27Wide_Wide_Image 
org/wiki/Ada/20Programming/2FAttributes/2F/27Wide_Wide_Value 
org/wiki/Ada/20Programming/2FAttributes/2F/27Wide_Wide_Width 
org/wiki/Ada/20Programming/2FAttributes/2F/27Wide_Width 
org/wiki/Ada/20Programming/2FAttributes/2F/27Width 


org/w/index.php?title-Programming:Ada:Attributes&action-edit 


//www.adacore.com/wp-content/files/auto update/gnat-unw-docs/html/gnat rm 3.html 
//en.wikibooks.org/wiki/Ada/20Programming/2FGNAT 


Implementation-defined attribute!!^ of the HP Ada!! compiler (formerly known as 
"DEC Ada"). 
ICC 
Implementation-defined attribute!!® of the Irvine ICC!” compiler. 
Power Ada 
Implementation-defined attribute!!® of OC Systems' PowerAda 
SPARCompiler 
Implementation-defined attributet? of Sun's SPARCompiler Ada!?!. 
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38.3.1 A D 


e 'Abort_Signal!?? (GNAT) 

e 'Address_Size!?? (GNAT) 

e 'Architecture??* (ICC) 

e 'Asm Input! (GNAT) 

e 'Asm_Output!” (GNAT) 

e 'AST_Entry!” (GNAT, HP Ada) 
e 'Bit!?? (GNAT, HP Ada) 

e (Dit Position?? (GNAT) 

e 'CG. Mode??? (ICC) 

e 'Code Address?! (GNAT) 

e 'Compiler. Key? (SPARCompiler) 
e 'Compiler Version? (SPARCompiler) 
e 'Declared!** (ICC) 

e 'Default Bit Order? (GNAT) 

e "Dope Address? (SPARCompiler) 





114 http://h71000.www7.hp.com/commercial/ada/ada_lrm. pdf 

115 http://h71000.www7.hp.com/commercial/ada/ada index.html 

116 "4.2 ICC-Defined Attributes", ICC Ada Implementation Reference — ICC Ada Version 8.2.5 for 1960MC 
Targets, document version 2.11.4http://www.irvine.com/support/general/ 

117 http://www.irvine.com/products.html 

118 http://www.ocsystems.com/user guide/powerada/html/powerada-117.htmltHEADING117-0 

119 http://www.ocsystems.com/prod powerada.html 

120 http://docs.sun.com/app/docs/doc/802-3641/6i7h8sibi?a-viewHF. 


Implementation-Dependent Characteristi-30 
121 http://docs.sun.com/app/docs/coll/15.4 


122 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Abort_Signal 

123 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Address_Size 

124 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Architecture 

125 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes{2F/27Asm_Input 

126 http://en.wikibooks.org/wiki/Ada/20Programing/2FAttributes/2F/27Asm_0utput 

127 nhttp://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes/2F/27AST Entry 

128 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Bit 

129 nhttp://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes/2F/27Bit Position 

130 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27CG_Mode 

131 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Code_Address 

132 nhttp://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes/2F/27Compiler Key 

133 nhttp://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes/2F/27Compiler Version 
134 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Declared 

135 http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Default Bit Order 
136 nttp://en.wikibooks.org/wiki/AdaA20ProgrammingA2FAttributes'/2F/427Dope Address 
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Attributes 


e 'Dope_Size!*” (SPARCompiler) 


38.3.2 E- H 


'Elaborated?? (GNAT) 
'Elab Body? (GNAT) 
'Elab Spec! (GNAT) 


'Emaxi* (GNAT) 


'Enabled!4? (GNAT) 

'Entry. Number! ? (SPARCompiler) 
'Enum  Rep!^ (GNAT) 

'Enum Vall? (GNAT) 

'Epsilon 46 (GNAT) 
'Exception__Address!*” (ICC) 
'Extended Aft!4? (PowerAda) 
'Extended Basel! (PowerAda) 
'Extended Digits?? (PowerAda) 
'Extended Fore?! (PowerAda) 
'Extended Image? (PowerAda) 
'Extended Value? (PowerAda) 
'Extended Width!?^ (PowerAda) 
'Extended Wide Image"? (PowerAda) 
'Extended Wide Value (PowerAda) 
'Extended Wide Width!’ (PowerAda) 
"Fixed. Value^* (GNAT) 

'Has Access Values? (GNAT) 

"Has Discriminants!99 (GNAT) 
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wikibooks 


wikibooks. 
.org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Image 


wikibooks 
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wikibooks. 
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org/wiki/Ada/20Programming/2FAttributes/2F/27Elab_Body 
org/wiki/Ada/20Programming/2FAttributes/2F/27Elab_Spec 
org/wiki/Ada/20Programming/2FAttributes/2F/27Emax 
org/wiki/Ada/20Programming/2FAttributes/2F/27Enabled 
org/wiki/Ada/20Programming/2FAttributes/2F/27Entry_Number 
org/wiki/Ada/20Programming/2FAttributes/2F/27Enum_Rep 
org/wiki/Ada/20Programming/2FAttributes/2F/27Enum_Val 
org/wiki/Ada/20Programming/2FAttributes/2F/27Epsilon 
org/wiki/Ada/20Programming/2FAttributes/2F/27Exception_Address 
org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Aft 
org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Base 


org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Fore 


org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Value 
org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Width 
org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Wide_Image 
org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Wide_Value 
org/wiki/Ada/20Programming/2FAttributes/2F/27Extended_Wide_Width 
org/wiki/Ada/20Programming/2FAttributes/2F/27Fixed_Value 
org/wiki/Ada/20Programming/2FAttributes/2F/27Has_Access_Values 
org/wiki/Ada/20Programming/2FAttributes/2F/27Has_Discriminants 


e 'High Word!9! (ICC) 
e 'Homogeneous!*? (SPARCompiler) 


38.3.3 I- N 


e 'Img!6? (GNAT) 

e "Integer. Value!?! (GNAT) 

e (Invalid Value! (GNAT) 

e 'Linear_Address!© (ICC) 

e 'Low_Word!® (ICC) 

e 'Machine Sizel65 (GNAT, HP Ada) 
e 'Max_Interrupt_Priority'®? (GNAT) 
e 'Max_Priority!”? (GNAT) 

e 'Maximum_Alignment!”! (GNAT) 

e 'Mechanism_Code!”? (GNAT) 

e 'Null_Parameter!’? (GNAT, HP Ada) 





38.3.4 O — T 


e 'Object_Size!”* (GNAT) 

e 'Old!? (GNAT) 

e 'Passed By Reference!” (GNAT) 
e 'Pool Address!" (GNAT) 

e 'Range Length!” (GNAT) 

e 'Ref!? (SPARCompiler) 

e 'Storage Unit? (GNAT) 

e 'Stub Typel?! (GNAT) 

e "Target!?? (ICC) 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27High_Word 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Homogeneous 
http://en.wikibooks.org/wiki/Ada/20Programing/2FAttributes/2F/27Img 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Integer_Value 
http://en.wikibooks.org/wiki/Ada/20Programing/2FAttributes/2F/27Invalid_Value 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Linear_Address 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Low_Word 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Machine_Size 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Max_Interrupt_ 
Priority 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Max_Priority 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Maximum_Alignment 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Mechanism_Code 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Null_Parameter 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/270bject_Size 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/2701d 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Passed_By_Reference 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Po01_Address 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Range_Length 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Ref 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Storage_Unit 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Stub_Type 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAttributes/2F/27Target 
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Attributes 


e "Target Name!*? (GNAT) 

e "Task ID!84 (SPARCompiler) 
e 'Tick!® (GNAT) 
e 'To_Address!®° (GNAT) 

e 'Type_Class!%” (GNAT, HP Ada) 
e "IDype Key!^? (SPARCompiler) 


38.3.5 U- Z 


e 'UET. Address)? (GNAT) 

e 'Unconstrained_ Array!?? (GNAT) 

e 'Universal Literal String?! (GNAT) 
e "Unrestricted | Access!?? (GNAT, ICC) 
e 'VADS Size!’ (GNAT) 

e 'Value Size!?* (GNAT) 

e '"Wchar T Size! (GNAT) 

e "Word Size!” (GNAT) 


38.4 See also 


See also 


38.4.1 Wikibook 


Ada Programming!” 

Ada Programming/Aspects 
Ada Programming/Pragmas 
Ada Programming/Keywords 


198 
199 
200 





183 
184 
185 
186 
187 
188 
189 
190 


191 


192 
193 
194 
195 
196 
197 
198 
199 
200 


http 


http: 
http: 
http: 
http: 
http: 
http: 


http 


http: 


://en. 
//en. 
//en. 
//en. 
//en. 
//en. 
//en. 
://en. 
//en. 


String 


http: 
http: 
http: 
http: 
http: 


http 


http: 


//en. 
//en. 
//en. 
//en. 
//en. 
://en. 
//en. 


Chapter 39 
Chapter 35 
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wikibooks 
wikibooks. 
wikibooks. 
wikibooks. 
wikibooks 
wikibooks. 
wikibooks. 
wikibooks 
wikibooks 


wikibooks. 
wikibooks. 
wikibooks 
wikibooks. 
wikibooks. 
wikibooks 
wikibooks 
on page 317 
on page 293 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Target_Name 


org/wiki/Ada/20Programming/2FAttributes/2F/27Task_ID 
org/wiki/Ada/20Programming/2FAttributes/2F/27Tick 
org/wiki/Ada/20Programming/2FAttributes/2F/27To_Address 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Type_Class 


org/wiki/Ada/20Programming/2FAttributes/2F/27Type_Key 
org/wiki/Ada/20Programming/2FAttributes/2F/27UET_Address 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Unconstrained_Array 
.org/wiki/Ada/20Programming/2FAttributes/2F/27Universal_Literal_ 


org/wiki/Ada/20Programming/2FAttributes/2F/27Unrestricted_Access 
org/wiki/Ada/20Programming/2FAttributes/2F/27VADS_Size 


.org/wiki/Ada/20Programming/2FAttributes/2F/27Value_Size 


org/wiki/Ada/20Programming/2FAttributes/2F/27Wchar_T_Size 
org/wiki/Ada/20Programming/2FAttributes/2F/27Word_Size 


.org/wiki/Ada/20Programming 
.org/wiki/Ada/20Programming/2FAspects 


38.4.2 Ada Reference Manual 
Ada 83 


e Annex 4: Attributes ^(http://archive.adaic.com/standards/831rm/html/lrm-4. 
html) 

e Annex <A: Predefined Language Attributes “{http://archive.adaic.com/ 
standards/831rm/html/lrm-A.html) 


Ada 95 
e 4.1 Attributes?0! 
e Annex K: (informative) Language-Defined Attributes??? 


Ada 2005 


e 4.1 Attributes??? 


e Annex K: (informative) Language-Defined Attributes?” 


Ada 2012 


e 4.1 Attributes??? 
e Annex K: (informative) Language-Defined Attributes? 


38.5 References 


References 





201 http://www.adaic.org/resources/add content/standards/951rm/ARM HTML/RM-4-1.html 
202 http://ww.adaic.org/resources/add_content/standards/951rm/ARM_HTML/RM-K.html 
203 http://www.adaic.org/resources/add content/standards/Obrm/html/RM-2-4-1.html 
204 http://www.adaic.org/resources/add content/standards/Obrm/html/RM-2-K.html 

205 http://www.ada-auth.org/standards/12rm/html/RM-4-1.html 

206 http://www.ada-auth.org/standards/12rm/html/RM-K.html 
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39 Pragmas 


39.1 Description 


Description 


Pragmas! control the compiler, i.c. they are compiler directives?. They have the standard 
form of 








pragma Name (Parameter List); 








where the parameter list is optional. 


39.2 List of language defined pragmas 
List of language defined pragmas 


Some pragmas are specially marked: 
Ada 2005 
This is a new Ada 2005? pragma. 
Ada 2012 
This is a new Ada 20124 pragma. 
Obsolescent 
This is a deprecated pragma and it should not be used in new code. 


39.2.1 A- H 


e All Calls Remote? 

e Assert? (Ada 2005) 

e Assertion Policy’ (Ada 2005) 

e Asynchronous? (Obsolescent since Ada 2012) 

e Atomic? (Obsolescent since Ada 2012) 

e Atomic Components!? (Obsolescent since Ada 2012) 
e Attach Handler!! (Obsolescent since Ada 2012) 





ka ko DJ On Oo Gär 


=. c 


Chapter 39 on page 317 

http://en.wikipedia.org/wiki/Compiler/20directive 

Chapter 23 on page 219 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAda/202012 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FA11_Calls_Remote 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FAssert 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FAssertion_Policy 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FAsynchronous 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FAtomic 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FAtomic_Components 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FAttach_Handler 
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Pragmas 


Controlled? 

Convention)? (Obsolescent since Ada 2012) 
CPU (Ada 2012) 

Default Storage Pool? (Ada 2012) 
Detect Blocking!Ó (Ada 2005) 
Discard Names!” 

Dispatching Domain!? (Ada 2012) 
Elaborate!? 

Elaborate All?° 

Elaborate Body?! 

Export?? (Obsolescent since Ada 2012) 


39.2.2 I- O 


Import?’ (Obsolescent since Ada 2012) 
Independent?* (Ada 2012) 

Independent Component?? (Ada 2012) 

Inline? (Obsolescent since Ada 2012) 

Inspection Point?" 

Interface?" (Obsolescent) 

Interrupt_ Handler?? (Obsolescent since Ada 2012) 
Interrupt Priority?" (Obsolescent since Ada 2012) 
Linker Options?! 

List?" 

Locking Policy?? 

Memory. Size? (Obsolescent) 

No Return?? (Ada 2005) (Obsolescent since Ada 2012) 
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http: //en.wikibooks. org/wiki/Ada/,20Programming/2FPragmas/2FControlled 

http: //en.wikibooks. org/wiki/Ada/,20Programming/2FPragmas/2FConvention 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FCPU 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FDefault_Storage_Pool 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FDetect_Blocking 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FDiscard_Names 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FDispatching_Domain 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FElaborate 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FElaborate_A11 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FElaborate_Body 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FExport 

http: //en.wikibooks. org/wiki/Ada/,20Programming/2FPragmas/,2F Import 

http: //en.wikibooks. org/wiki/Ada/,20Programming/2FPragmas/,2F Independent 

http: //en.wikibooks. org/wiki/Ada/,20Programming/2FPragmas/,2F Independent Component 
http: //en.wikibooks. org/wiki/Ada/,20Programming/2FPragmas/,2F Inline 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FInspection_Point 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FInterface 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FInterrupt_Handler 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FInterrupt_Priority 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FLinker_Options 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FList 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FLocking_Policy 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FMemory_Size 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNo_Return 


e Normalize Scalars?6 
e Optimize?" 


39.2.8 P— R 


e Pack? (Obsolescent since Ada 2012) 

e Page?” 

e Partition Elaboration Policy*% (Ada 2005) 
e Preelaborable_Initialization*! (Ada 2005) 

e Preelaborate* 

e Priority^? (Obsolescent since Ada 2012) 

e Priority Specific Dispatching"! (Ada 2005) 
e Profile? (Ada 2005) 

e Pure*® 

e Queueing Policy" 

e Relative Deadline? (Ada 2005) 

e Remote Call Interface?? 

e Remote Types? 

e Restrictions?! 

e Reviewable?? 


39.24 S- Z 


e Shared? (Obsolescent) 

e Shared Passive?4 

e Storage Size? 

e Storage Unit?9 (Obsolescent) 
e Suppress?’ 





VS Ga bh rä © 


CO Ot OT OT OT OT OT ct 


ND Ct 


http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNormalize_Scalars 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FOptimize 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPack 


http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPage 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPartition_Elaboration_ 
Policy 

http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPreelaborable_ 


Initialization 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPreelaborate 


http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPriority 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPriority_Specific_ 
Dispatching 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FProfile 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPure 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FQueueing_Policy 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FRelative_Deadline 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FRemote_Cal1l_Interface 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FRemote_Types 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FRestrictions 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FReviewable 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShared 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShared_Passive 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FStorage_Size 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FStorage_Unit 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FSuppress 


319 


Pragmas 


e System. Name?? (Obsolescent) 
e Task Dispatching Policy?? 

e Unchecked Union? (Ada 2005) 
e Unsuppress?! (Ada 2005) 

e Volatile®? 

e Volatile Components6? 


39.3 List of implementation defined pragmas 
List of implementation defined pragmas 


The following pragmas are not available in all Ada compilers, only in those that had 
implemented them. 
Currently, there are only listed the implementation-defined pragmas of a few compilers. 
You can help Wikibooks adding®™ specific aspects of other compilers: 
GNAT 
Implementation defined pragma® of the GNAT® compiler from AdaCore and FSF. 
HP Ada 
Implementation defined pragma®’ of the HP Ada? compiler (formerly known as "DEC 
Ada"). 
ICC 
Implementation-defined pragma® of the Irvine ICC” compiler. 
PowerAda 
Implementation defined pragma’! of OC Systems! PowerAda”. 
SPARCompiler 
Implementation defined pragma’ of Sun's SPARCompiler Ada" .http:// 
findarticles.com/p/articles/mi mOEIN/is 1994 Nov 2/ai 15882197 


39.8.1 A — C 
e Abort_Defer”? (GNAT) 





http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FSystem Name 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FTask Dispatching Policy 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FUnchecked_Union 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FUnsuppress 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FVolatile 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FVolatile_Components 
http://en.wikibooks.org/w/index.php?title-Ada Programming/Pragmas&action-edit 
http://www.adacore.com/wp-content/files/auto update/gnat-unw-docs/html/gnat rm 2.html 
http://en.wikibooks.org/wiki/Ada/20Programming/2FGNAT 
http://h71000.www7.hp.com/commercial/ada/ada_lrm. pdf 
http://h71000.www7.hp.com/commercial/ada/ada_index. html 

"2.2 ICC-Defined Pragmas", ICC Ada Implementation Reference — ICC Ada Version 8.2.5 for i960MC 
Targets, document version 2.11.4.http://www.irvine.com/support/general/ 
http://www.irvine.com/products.html 

http: //www.ocsystems .com/user_guide/powerada/htm1/powerada- 106 .htm1#HEADING106-0 
http: //www.ocsystems.com/prod_powerada.html 
http://docs.sun.com/app/docs/doc/802-3641/6i7h8si5i?a=view#F. 
Implementation-Dependent_Characteristi-2 

http://docs.sun.com/app/docs/coll/15.4 

http: //en.wikibooks. org/wiki/Ada/,20Programming/2FPragmas/2F Abort Defer 
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Ada 8376 (GNAT 
Ada 9577 (GNAT 


) 
) 


Ada 05/5 (GNAT) 

Ada 20057? (GNAT) 

Ada 129? (GNAT) 

Ada 20125! (GNAT) 

Annotate?? (GNAT) 

Assume No Invalid Values?? (GNAT) 
Ast Entry? (GNAT, HP Ada) 

Bit Pack" (SPARCompiler) 

Built. In (SPARCompiler) 

Byte Pack?” (SPARCompiler) 

C Pass By Copy?? (GNAT) 

Call. Mechanism?? (ICC) 

Canonical Streams?? (GNAT) 

Check?! (GNAT) 
Check Name?? (GNAT) 

Check Policy?? (GNAT) 

CM. Info?! (PowerAda) 

Comment?? (GNAT) 

Common. Object (GNAT, HP Ada) 
Compatible Calls?" (ICC) 
Compile Time Error?? (GNAT) 
Compile Time Warning?? (GNAT) 
Complete Representation! (GNAT) 





76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
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http: 
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//en. 
//en. 
//en. 
//en. 
//en. 
//en. 
//en. 
//en. 
//en. 
//en. 
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wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 
wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 
wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 
wikibooks 


.org/wiki/Ada/20Programming/2FPragmas/2FAda_83 


org/wiki/Ada/20Programming/2FPragmas/2FAda_95 
org/wiki/Ada/20Programming/2FPragmas/2FAda_05 
org/wiki/Ada/20Programming/2FPragmas/2FAda_2005 


.org/wiki/Ada/20Programming/2FPragmas/2FAda_12 
.org/wiki/Ada/20Programming/2FPragmas/2FAda_2012 


org/wiki/Ada/20Programming/2FPragmas/2FAnnotate 
org/wiki/Ada/20Programming/2FPragmas/2FAssume_No_Invalid_Values 
org/wiki/Ada/20Programming/2FPragmas/2FAst_Entry 


.org/wiki/Ada/20Programming/2FPragmas/2FBit_Pack 


org/wiki/Ada/20Programming/2FPragmas/2FBuilt_In 
org/wiki/Ada/20Programming/2FPragmas/2FByte_Pack 
org/wiki/Ada/20Programming/2FPragmas/2FC_Pass_By_Copy 


.org/wiki/Ada/20Programming/2FPragmas/2FCall_Mechanism 
.org/wiki/Ada/20Programming/2FPragmas/2FCanonical_Streams 


org/wiki/Ada/20Programming/2FPragmas/2FCheck 
org/wiki/Ada/20Programming/2FPragmas/2FCheck_Name 
org/wiki/Ada/20Programming/2FPragmas/2FCheck_Policy 


.org/wiki/Ada/20Programming/2FPragmas/2FCM_Info 


org/wiki/Ada/20Programming/2FPragmas/2FComment 
org/wiki/Ada/20Programming/2FPragmas/,2FCommon_Object 
org/wiki/Ada/20Programming/2FPragmas/2FCompatible_Calls 


.org/wiki/Ada/20Programming/2FPragmas/2FCompile_Time_Error 
.org/wiki/Ada/20Programming/2FPragmas/2FCompile_Time_Warning 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FComplete_Representation 
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Pragmas 


Complex Representation?! (GNAT) 
Component Alignment!*% (GNAT, HP Ada) 
Compress!’ (ICC) 

Constrain Private!?^ (ICC) 

Convention Identifier! (GNAT) 
CPP_Class!% (GNAT) 

CPP Constructor!" (GNAT) 

CPP Virtual? (GNAT) 

CPP Vtable!?? (GNAT) 


39.3.2 D- H 
Data_Mechanism!* (ICC) 


Debug!!! (GNAT) 


Debug_Policy'? (GNAT) 
Delete_Subprogram_Entry*** (ICC) 

Elaboration Checks!!^ (GNAT) 

Eliminate!’ (GNAT) 

Error!!ó (SPARCompiler) 

Export Exception!" (GNAT, HP Ada) 

Export Function!? (GNAT, HP Ada, SPARCompiler) 
Export Mechanism!!!’ (ICC) 

Export Object!?? (GNAT, HP Ada, SPARCompiler) 
Export Procedure?! (GNAT, HP Ada, SPARCompiler) 
Export Value!?? (GNAT) 

Export Valued Procedure!?? (GNAT, HP Ada) 
Extend System? (GNAT) 
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124 
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wikibooks. 
wikibooks. 
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wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 
wikibooks 


wikibooks. 
wikibooks. 
wikibooks. 


wikibooks 


wikibooks. 


wikibooks 
wikibooks 
wikibooks 


wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FComplex_Representation 
org/wiki/Ada/20Programming/2FPragmas/2FComponent_Alignment 
org/wiki/Ada/20Programming/2FPragmas/2FCompress 


.org/wiki/Ada/20Programming/2FPragmas/2FConstrain_Private 
.org/wiki/Ada/20Programming/2FPragmas/2FConvention_Identifier 


org/wiki/Ada/20Programming/2FPragmas/2FCPP_Class 
org/wiki/Ada/20Programming/2FPragmas/2FCPP_Constructor 
org/wiki/Ada/20Programming/2FPragmas/2FCPP_Virtual 


.org/wiki/Ada/20Programming/2FPragmas/2FCPP_Vtable 


org/wiki/Ada/20Programming/2FPragmas/2FData_Mechanism 
org/wiki/Ada/20Programming/2FPragmas/2FDebug 
org/wiki/Ada/20Programming/2FPragmas/2FDebug_Policy 


.org/wiki/Ada/20Programming/2FPragmas/2FDelete_Subprogram_Entry 
.org/wiki/Ada/20Programming/2FPragmas/2FElaboration_Checks 


org/wiki/Ada/20Programming/2FPragmas/2FEliminate 
org/wiki/Ada/20Programming/2FPragmas/2FError 
org/wiki/Ada/20Programming/2FPragmas/2FExport_Exception 


.org/wiki/Ada/20Programming/2FPragmas/2FExport_Function 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FExport_Mechanism 
org/wiki/Ada/20Programming/2FPragmas/2FExport_0Object 


.org/wiki/Ada/20Programming/2FPragmas/2FExport_Procedure 
.org/wiki/Ada/20Programming/2FPragmas/2FExport_Value 
.org/wiki/Ada/20Programming/2FPragmas/2FExport_Valued_Procedure 


org/wiki/Ada/20Programming/2FPragmas/2FExtend_System 


e Extensions Allowed*? (GNAT) 

e External? (GNAT, SPARCompiler) 

e External Name??? (ICC, SPARCompiler) 
e External Name Casing? (GNAT) 

e Fast. Math? (GNAT) 

e Favor Top Level!?? (GNAT) 

e Finalize Storage Only?! (GNAT) 

e Float Representation!?? (GNAT, HP Ada) 
e Foreign!?? (ICC) 

e Generic_Mechanism!*4 (ICC) 

e Generic_Policy!% (SPARCompiler) 


39.3.3 I- L 


e i960_ Intrinsic??? (ICC) 

e Ident!” (GNAT, HP Ada) 

e Images!?? (PowerAda) 

e Implemented! ??, previously named 'Implemented By Entry' (GNAT) 
e Implicit_Code!* (SPARCompiler) 

e Implicit_Packing!*! (GNAT) 

e Import Exception! (GNAT, HP Ada) 

e Import Function!? (GNAT, HP Ada, SPARCompiler) 
e Import_Mechanism!* (ICC) 

e Import. Object! (GNAT, HP Ada, SPARCompiler) 

e Import. Procedure! (GNAT, HP Ada, SPARCompiler) 
e Import Valued Procedure!* (GNAT, HP Ada) 

e Include! (SPARCompiler) 
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137 
138 
139 
140 
141 
142 
143 
144 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FExtensions_Allowed 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FExternal 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FExternal_Name 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FExternal_Name_Casing 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FFast_Math 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FFavor_Top_Level 
http://en.wikibooks.org/wiki/Ada/,20Programming/2FPragmas/2FFinalize_Storage_Only 
http://en.wikibooks.org/wiki/Ada/20Programming/,2FPragmas/2FFloat_Representation 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FForeign 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FGeneric_Mechanism 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FGeneric_Policy 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2Fi960_Intrinsic 
http://en.wikibooks.org/wiki/Ada/20Programming/,2FPragmas/2F Ident 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/,2F Images 
http://en.wikibooks.org/wiki/Ada/,20Programming/2FPragmas/2F Implemented 
http://en.wikibooks.org/wiki/Ada/,20Programming/2FPragmas/2F Implicit_Code 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FImplicit_Packing 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FImport_Exception 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FImport_Function 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FImport_Mechanism 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FImport_Object 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FImport_Procedure 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FImport_Valued_Procedure 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FInclude 
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Pragmas 


e Initialize? (SPARCompiler) 

e Initialize. Scalars?? (GNAT) 

e Inline. Always?! (GNAT) 

e Inline. Generic? (GNAT, HP Ada) 

e Inline Only? (SPARCompiler) 

e Instance Policy^^ (SPARCompiler) 

e Interface Constant!? (ICC) 

e Interface ` Information)? (PowerAda) 

e Interface Mechanism?" (ICC) 

e Interface Name? (GNAT, HP Ada, ICC, SPARCompiler) 
e Interrupt_State’? (GNAT) 

e Invariant!©? (GNAT) 

e Keep_Names!®! (GNAT) 

e Label!® (ICC) 
e License!6? (GNAT) 

e Link With! (GNAT, ICC, SPARCompiler) 
e Linker Alias!69 (GNAT) 

e Linker Constructor!66 (GNAT) 

e Linker Destructor!” (GNAT) 

e Linker Section!% (GNAT) 

e Long Float!6? (GNAT: OpenVMS, HP Ada) 


39.3.4 M-P 


e Machine Attribute!/? (GNAT) 
e Maint”! (GNAT) 
e Main Storage!7? (GNAT, HP Ada) 
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wikibooks. 


wikibooks 
wikibooks 


wikibooks. 
wikibooks. 


wikibooks 


wikibooks. 


wikibooks 
wikibooks 
wikibooks 


org/wiki/Ada/20Programming/2FPragmas/2F Initialize 
org/wiki/Ada/20Programming/2FPragmas/2FInitialize_Scalars 
org/wiki/Ada/20Programming/2FPragmas/2FInline_Always 


.org/wiki/Ada/20Programming/2FPragmas/2FInline_Generic 
.org/wiki/Ada/20Programming/2FPragmas/2FInline_Only 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FInstance_Policy 
org/wiki/Ada/20Programming/2FPragmas/2FInterface_Constant 
org/wiki/Ada/20Programming/2FPragmas/2FInterface_Information 


.org/wiki/Ada/20Programming/2FPragmas/2FInterface_Mechanism 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FInterface_Name 
org/wiki/Ada/20Programming/2FPragmas/2FInterrupt_State 
org/wiki/Ada/20Programming/2FPragmas/2FInvariant 


.org/wiki/Ada/20Programming/2FPragmas/2FKeep_Names 
.org/wiki/Ada/20Programming/2FPragmas/2FLabel 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FLicense 
org/wiki/Ada/20Programming/2FPragmas/2FLink_With 
org/wiki/Ada/20Programming/2FPragmas/2FLinker_Alias 


.org/wiki/Ada/20Programming/2FPragmas/2FLinker_Constructor 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FLinker_Destructor 
org/wiki/Ada/20Programming/2FPragmas/2FLinker_Section 


.org/wiki/Ada/20Programming/2FPragmas/2FLong_Float 
.org/wiki/Ada/20Programming/2FPragmas/2FMachine_Attribute 
.org/wiki/Ada/20Programming/2FPragmas/2FMain 

wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FMain_Storage 


No. Body!? (GNAT) 

No Image!” (SPARCompiler) 

No Strict Aliasing!? (GNAT) 

o. Suppress! 6 (PowerAda) 

o. Reorder!” (ICC) 

(o Zero! ^? (ICC) 

oinline!” (ICC) 

on Reentrant!*? (SPARCompiler) 
ot. Elaborated?! (SPARCompiler) 
vot. Null? (ICC) 

Obsolescent!*? (GNAT) 

Optimize Alignment!?* (GNAT) 
Optimize Code!*? (SPARCompiler) 
Optimize Options*9 (ICC) 
Ordered!" (GNAT) 

Parameter Mechanism? (ICC) 
Passive!®? (GNAT, HP Ada, SPARCompiler) 
Persistent BSS!?? (GNAT) 
Physical Address?! (ICC) 
Polling!?? (GNAT) 

Postcondition!?? (GNAT) 
Precondition!?^ (GNAT) 

Preserve. Layout!?? (PowerAda) 
Profile Warnings!’ (GNAT) 
Propagate Exceptions?" (GNAT) 








2 Z Z Z Z Z Z 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNo_Body 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNo_Image 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNo_Strict_Aliasing 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNo_Suppress 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNo_Reorder 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNo_Zero 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNoinline 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNon_Reentrant 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNot_Elaborated 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FNot_Null 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FObsolescent 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FOptimize_Alignment 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FOptimize_Code 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2F0ptimize_Options 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FOrdered 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FParameter_Mechanism 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPassive 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPersistent_BSS 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPhysical_Address 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPolling 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPostcondition 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPrecondition 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPreserve_Layout 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FProfile_Warnings 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPropagate_Exceptions 


Pragmas 


Protect Registers!?5 (ICC) 
Protected Call!?? (ICC) 
Protected Return??? (ICC) 
Psect_ Object??! (GNAT, HP Ada) 
Pure Function?? (GNAT) 

Put? (ICC) 

Put Line?" (ICC) 


39.3.5 R-S 


Reserve Registers? (ICC) 
Restriction Warnings??? (GNAT) 

RTS_ Interface??? (SPARCompiler) 
SCCS_1D?% (PowerAda) 

Share. Body??? (SPARCompiler) 
Share. Code? (SPARCompiler) 

Share Generic?!! (GNAT, HP Ada) 
Shareable?!? (ICC) 

Short Circuit And Or?!? (GNAT) 
Short Descriptors?!4 (GNAT) 

Simple Storage Pool Type? (GNAT) 
Simple Task?! (ICC) 

Source File Name?!* (GNAT) 

Source File Name Project?!? (GNAT) 
Source Reference?! (GNAT) 

Stack Size??? (ICC) 

Static Elaboration??! (ICC) 
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http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FProtect Registers 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FProtected Call 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FProtected Return 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FPsect Object 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FPure Function 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FPragmasA2FPut 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FPut_Line 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FReserve_Registers 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FRestriction_Warnings 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FRTS_Interface 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FSCCS_ID 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShare_Body 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShare_Code 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShare_Generic 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShareable 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShort_Circuit_And_Or 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FShort_Descriptors 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FSimple_Storage_Pool1_Type 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FSimple_Task 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FSource_File_Name 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FSource_File_Name_Project 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FSource_Reference 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FStack_Size 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FStatic_Elaboration 


e Static Elaboration Desired??? (GNAT) 

e Stream. Convert??? (GNAT) 

e Style. Checks??* (GNAT) 

e Subtitle??? (GNAT) 

e Suppress. AII?6 (GNAT, HP Ada, PowerAda, SPARCompiler) 
e Suppress Elaboration Checks??* (SPARCompiler) 

e Suppress Exception Locations? (GNAT) 

e Suppress Initialization??? (GNAT) 

e System Table??? (ICC) 


39.3.6 T-Z 


e Task Attributes”?! (SPARCompiler) 
e Task Info?? (GNAT) 

e Task Name?? (GNAT) 

e Task Storage?? (GNAT, HP Ada) 
e Test. Case??? (GNAT) 

e Thread. Body??? (GNAT) 

e "Thread Local Storage?" (GNAT) 
e Time Slice??? (GNAT, HP Ada, ICC) 
e Time Slice Attributes??? (ICC) 

e Title? (GNAT, HP Ada) 

e Unimplemented_Unit?“! (GNAT) 

e Universal_Aliasing?* (GNAT) 

e Universal Data??? (GNAT) 

e Unmodified?* (GNAT) 
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.org/wiki/Ada/20Programming/2FPragmas/2FStatic_Elaboration_Desired 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FStream_Convert 
org/wiki/Ada/20Programming/2FPragmas/2FStyle_Checks 
org/wiki/Ada/20Programming/2FPragmas/2FSubtitle 


.org/wiki/Ada/20Programming/2FPragmas/2FSuppress_A11 
wikibooks. 


org/wiki/Ada/20Programming/2FPragmas/2FSuppress_Elaboration_ 


org/wiki/Ada/20Programming/2FPragmas/2FSuppress_Exception_ 


.org/wiki/Ada/20Programming/2FPragmas/2FSuppress_Initialization 


org/wiki/Ada/20Programming/2FPragmas/2FSystem_Table 
org/wiki/Ada/20Programming/2FPragmas/2FTask_Attributes 
org/wiki/Ada/20Programming/2FPragmas/2FTask_Info 


.org/wiki/Ada/20Programming/2FPragmas/2FTask_Name 
.org/wiki/Ada/20Programming/2FPragmas/2FTask_Storage 


org/wiki/Ada/20Programming/2FPragmas/2FTest_Case 
org/wiki/Ada/20Programming/2FPragmas/2FThread_Body 
org/wiki/Ada/20Programming/2FPragmas/2FThread_Local_Storage 


.org/wiki/Ada/20Programming/2FPragmas/2FTime_Slice 


org/wiki/Ada/20Programming/2FPragmas/2FTime_Slice_Attributes 
org/wiki/Ada/20Programming/2FPragmas/2FTitle 


.org/wiki/Ada/20Programming/2FPragmas/2FUnimplemented_Unit 
.org/wiki/Ada/20Programming/2FPragmas/2FUniversal_Aliasing 
.org/wiki/Ada/20Programming/2FPragmas/2FUniversal_Data 


org/wiki/Ada/20Programming/2FPragmas/2FUnmodified 
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Pragmas 


e Unreferenced?? (GNAT) 

e Unreferenced_Objects?* (GNAT) 

e Unreserve All Interrupts?*” (GNAT) 
e Unsigned Literal?^5 (ICC) 

e Use VADS Size??? (GNAT) 

e Validity Checks??? (GNAT) 

e Warning??! (SPARCompiler) 

e Warnings?? (GNAT, SPARCompiler) 

e Weak External??? (GNAT) 

e Wide Character Encoding?* (GNAT) 


39.4 See also 


See also 


39.4.1 Wikibook 


e Ada Programming??? 

e Ada Programming/Aspects??9 

e Ada Programming/Attributes?>” 
e Ada Programming /Keywords?”® 


39.4.2 Ada Reference Manual 
Ada 83 


e Annex 2: Pragmas ^[http://archive.adaic.com/standards/831rm/html/lrm-2. 
html) 

e Annex B: Predefined Language Pragmas ^[http: //archive.adaic.com/standards/ 
831rm/html/lrm-B.html) 


Ada 95 


e 2.8 Pragmas??? 


e Annex L: (informative) Language-Defined Pragmas?% 





245 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FUnreferenced 

246 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FUnreferenced_Objects 
247 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FUnreserve_A11_Interrupts 
248 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FUnsigned_Literal 

249 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FUse_VADS_Size 

250 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FValidity_Checks 

251 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FWarning 

252 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FWarnings 

253 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FWeak_External 

254 http://en.wikibooks.org/wiki/Ada/20Programming/2FPragmas/2FWide_Character_Encoding 
255 http://en.wikibooks.org/wiki/Ada/20Programming 

256 http://en.wikibooks.org/wiki/Ada/20Programming/2FAspects 

257 Chapter 38 on page 305 

258 Chapter 35 on page 293 

259 http://www.adaic.org/resources/add_content/standards/951rm/ARM_HTML/RM-2-8.html 
260 http://www.adaic.org/resources/add_content/standards/951rm/ARM_HTML/RM-L. html 
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Ada 2005 


e 2.8 Pragmas?6 
e Annex L: (informative) Language-Defined Pragmas 


Ada 2012 


e 2.8 Pragmas?Ó 
e Annex L: (informative) Language-Defined Pragmas 
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39.5 References 


References 
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adaic.org/resources/add content/standards/Obrm/html/RM-2-2-8.html 
adaic.org/resources/add content/standards/Obrm/html/RM-2-L.html 
ada-auth.org/standards/12rm/html/RM-2-8.html 
ada-auth.org/standards/12rm/html/RM-L.html 
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40 Libraries 


40.1 Predefined Language Libraries 
Predefined Language Libraries 


The library which comes with Ada in general and GNAT! in particular. Ada's built in 
library is quite extensive and well structured. These chapters too are more reference like. 


e Standard? 
e Ada? 

e Interfaces? 
e System? 
e GNAT® 


40.2 Other Language Libraries 
Other Language Libraries 


Other libraries which are not part of the standard but freely available. 


e Multi Purpose” 


e Container Libraries 


e GUI Libraries? 


8 


e Distributed Objects!” 


e Database!! 


e Web Programming!? 


e Input/Output!’ 


40.3 See also 





OO —J On OU Gä Mä Fa 


http://en.wikipedia.org/wiki/GNAT 


Chapter 41 on page 333 
Chapter 42 on page 337 
Chapter 43 on page 349 
Chapter 44 on page 351 
Chapter 45 on page 353 
Chapter 46 on page 357 
Chapter 47 on page 359 
Chapter 48 on page 361 
Chapter 49 on page 363 
Chapter 50 on page 365 
Chapter 51 on page 371 
Chapter 52 on page 373 


331 


Libraries 


See also 


40.3.1 Wikibook 


e Ada Programming! 


40.3.2 Ada Reference Manual 


e Annex A (normative) Predefined Language Environment “{http://www.adaic.org/ 
resources/add_content/standards/05rm/htm1/RM-A.htm1} 


40.3.3 Resources 


e A collection of Tools and Libraries! maintained by the Ada Resource Association. 
es:Programación en Ada/Unidades predefinidas!ó 





14 http://en.wikibooks. org/wiki/Ada/20Programming 
15 http://www.adaic. org/ada-resources/tools-libraries/ 
16 http: //es.wikibooks. org/wiki/Programaci/F3n/20en/20Ada/2FUnidades/20predefinidas 
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41 Libraries: Standard 


The Standard package is implicit. This means two things: 

1. You do not need to with or use the package, in fact you cannot (see below). It's 
always available (except where hidden by a homograph, RM 8.3 (8) “{http://www. 
adaic.org/resources/add_content/standards/05rm/htm1/RM-8-3.html} ). 

2. Standard may contain constructs which are not quite legal Ada (like the definitions 
of Character and Wide Character). 

A with clause mentioning Standard references a user-defined package Standard that 
hides the predefined one. So do not do this. However any library unit hidden by a 
homograph can be made visible again by qualifying its name with Standard, like e.g. 
Standard.My Unit. 


41.1 Implementation 
Implementation 


Since the package Standard is very important for portability, here are some examples for 
various compilers: 

e The package Standard! from ISO 8652?. 

e The package Standard? from GNAT?. 

e The package Standard? from Rational Apex®. 

e The package Standard” from ObjectAda® 

e The Standard? definitions for AppletMagic!? 


41.2 Portability 
Portability 


The only mandatory types in Standard are Boolean, Integer and its subtypes, Float, 
Character, Wide_Character, Wide_Wide_Character, String, Wide_String, Wide_- 
Wide String, Duration. There is an implementation permission in RM A.1 (51) ^(http:// 
www.adaic.org/resources/add content/standards/Obrm/html/RM-A-1.html) that 
there may be more integer and floating point types and an implementation advice RM 
A.1 (52) “{http://www.adaic.org/resources/add_content/standards/05rm/htm1/ 
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o 


http://en.wikibooks.org/wiki/A2FRM 
http://en.wikipedia.org/wiki/1S0/208652 
http://en.wikibooks.org/wiki//2FGNAT 
http://en.wikipedia.org/wiki/GNAT 
http://en.wikibooks.org/wiki/A2FApex 
http://www-306.ibm.com/software/awdtools/developer/ada 
http://en.wikibooks.org/wiki//2FObjectAda 
http://www.aonix.com/objectada.html 
http://en.wikibooks.org/wiki//2FAppletMagic 

http: //www.sofcheck.com/products/adamagic.htmlttappletmagic 


333 


Libraries: Standard 


RM-A-1.html) about the names to be chosen. There even is no requirement that those 
additional types must have different sizes. So it is e.g. legal for an implementation to 
provide two types Long Integer and Long Long Integer which both have the same 
range and size. 

Note that the ranges and sizes of these types can be different in every platform (except of 
course for Boolean and [[Wide_]Wide_]Character). There is an implementation requirement 
that the size of type Integer is at least 16 bits, and that of Long Integer at least 32 
bits (if present) RM 3.5.4 (21..22) ^(http://www.adaic.org/resources/add content/ 
standards/05rm/htm1/RM-3-5-4.htm1} . So if you want full portability of your types, 
do not use types from Standard (except where you must, see below), rather define you own 
types. A compiler will reject any type declaration whose range it cannot satisfy. 

This means e.g. if you need a 64-bit type and find that with your current implemen- 
tation Standard.Long Long Integer is such a type, when porting your program to 
another implementation, this type may be shorter, but the compiler will not tell you 
- and your program will most probably crash. However, when you define your own type like 





type My Integer 64 is range -(2**63) .. *(2**63 - 1); 











then, when porting to an implementation that cannot satisfy this range, the compiler 
will reject your program. 
The type Integer is mandatory when you use [[wide] wide] strings or exponentiation x**i. 
This is why some projects even define their own strings, but this means throwing out the 
child with the bath tub. Using Integer with strings and exponentiation will normally not 
lead to portability issues. 


41.3 See also 


See also 


41.3.1 Wikibook 


e Ada Programming! 


e Ada Programming/Libraries#Predefined Language Libraries!” 


41.3.2 Ada Reference Manual 


e A.1 The Package Standard ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-A-1.html) 

e 3.5.4 Integer Types “{http://www.adaic.org/resources/add_content/standards/ 
O5rm/htm1/RM-3-5-4.htm1} 

e 3.5.7 Floating Point Types ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-3-5-7.html]) 





11 http://en.wikibooks. org/wiki/Ada/20Programming 
12 Chapter 40.1 on page 331 
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41.3.3 Ada Quality and Style Guide 


e 7.1.1 Obsolescent Features “{http://www.adaic.org/resources/add_content/ 
docs/95style/html/sec 7/7-1-1.html) — Avoid using the package ASCII 

e 7.2.1 Predefined Numeric Types “{http://www.adaic.org/resources/add_ 
content/docs/95style/html/sec_7/7-2-1.htm1} — Avoid the predefined numeric 


types 
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42 Libraries: Ada 


The Ada package is only an anchor or namespace for Ada's standard library. Most 
compilers will not allow you to add new packages to the Ada hierarchy and even if your 
compiler allows it you should not do so since all package names starting with Ada. are 
reserved for future extensions. 


42.1 List of language defined child units 
List of language defined child units 


The following library units (packages and generic subprograms) are descendents of the 
package Ada. 
Ada 2005 

This package is available since Ada 2005! . 


42.1.1 A — C 


e Ada.Assertions? (Ada 2005) 

e Ada.Asynchronous Task Control? 

e Ada.Calendar* 

e Ada.Calendar.Arithmetic? (Ada 2005) 
e Ada.Calendar.Formatting® (Ada 2005) 
e Ada.Calendar.Time Zones’ (Ada 2005) 
e Ada.Characters® 

e Ada.Characters.Conversions? (Ada 2005) 
e Ada.Characters.Handling!? 

e Ada.Characters.Latin 1 

e Ada.Command Line? 

e Ada.Complex Text IO!? (Ada 2005) 





O OO JO Ou vV 0 Mä ra 


Chapter 23 on page 219 
http://en.wikibooks.org/wiki/Ada/20Programming/,2FLibraries{2FAda.Assertions 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Asynchronous_Task_ 


Control 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Calendar 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Calendar.Arithmetic 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Calendar.Formatting 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Calendar.Time_Zones 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Characters 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Characters. 


Conversions 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Characters.Handling 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Characters.Latin_1 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Command_Line 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Complex_Text_10 
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e Ada.Containers!* (Ada 2005) 

e Ada.Containers.Doubly Linked Lists? (Ada 2005) 

e Ada.Containers.Generic Array Sort!Ó (Ada 2005 generic procedure) 
e Ada.Containers.Generic_Constrained_ Array Sort!" (Ada 2005 generic procedure) 
e Ada.Containers.Hashed Maps!? (Ada 2005) 

e Ada.Containers.Hashed Sets!? (Ada 2005) 

e Ada.Containers.Indefinite Doubly Linked Lists?? (Ada 2005) 

e Ada.Containers.Indefinite Hashed. Maps?! (Ada 2005) 

e Ada.Containers.Indefinite_Hashed_Sets?? (Ada 2005) 

e Ada.Containers.Indefinite Ordered Maps?? (Ada 2005) 

e Ada.Containers.Indefinite Ordered Sets?4 (Ada 2005) 

e Ada.Containers.Indefinite Vectors? (Ada 2005) 

e Ada.Containers.Ordered. Maps% (Ada 2005) 

e Ada.Containers.Ordered Sets?" (Ada 2005) 

e Ada.Containers.Vectors? (Ada 2005) 


42.1.2 D — F 


e Ada.Decimal?? 

e Ada.Direct_ 1030 

e Ada.Directories?! (Ada 2005) 

e Ada.Directories.Information?? (Ada 2005) 
e Ada.Dispatching?? (Ada 2005) 





14 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers.Doubly_ 


1 

S Linked Lists 

16 http: //en.wikibooks. org/wiki/Ada%20Programming/,2FLibraries/,2FAda.Containers.Generic_ 
Array_Sort 

17 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers.Generic_ 
Constrained_Array_Sort 

18 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers.Hashed_ 
Maps 

19 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers.Hashed_ 
Sets 

20 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers. 
Indefinite_Doubly_Linked_Lists 

31 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers. 
Indefinite_Hashed_Maps 

99 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers. 
Indefinite_Hashed_Sets 

93 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers. 
Indefinite_Ordered_Maps 

24 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers. 
Indefinite_Ordered_Sets 

25 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers. 
Indefinite_Vectors 

26 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers.Ordered_ 
Maps 

27 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers.Ordered_ 
Sets 


28  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers.Vectors 
29  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Decimal 

30  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Direct_I0 

31  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Directories 

32 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Directories. 


Information 
33  http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Dispatching 
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e Ada.Dispatching.EDF?4 (Ada 2005) 
e Ada.Dispatching.Round Robin? (Ada 2005) 


e Ada.Dynamic Priorities 


36 


e Ada.Environment Variables?" (Ada 2005) 
e Ada.Exceptions?? 
e Ada.Execution Time?? (Ada 2005) 

e Ada.Execution Time.Timers?? (Ada 2005) 

e Ada.Execution Time.Group Budgets?! (Ada 2005) 
e Ada.Finalization* 
e Ada.Float Text 10% 

e Ada.Float Wide Text 10% 

e Ada.Float Wide Wide Text IO^4 (Ada 2005) 


42.1.3 G 


2 





sR: 


e Ada.Integer Text IO46 

e Ada.Integer Wide Text IO^* 

e Ada.Integer Wide Wide Text IO^? (Ada 2005) 
e Ada.Interrupts*” 
e Ada.Interrupts.Names?? 
e Ada IO Exceptions?! 


e Ada.Numerics 





52 


e Ada.Numerics.Complex Arrays?? (Ada 2005) 


e Ada.Numerics.Complex Elementary Functions 


54 





http://en. 
http://en. 


Robin 


http://en. 
http://en. 


Variables 


http://en. 
http://en. 
http://en. 


Timers 
http://en 


wikibooks 


wikibooks 


wikibooks 


wikibooks 
wikibooks 


.Wikibooks. 


Group Budgets 


http://en 


http://en. 
http://en. 
http://en. 


Text IO 


http://en. 
http://en. 
http://en. 


Text IO 


http://en. 
http://en. 
http://en. 
http://en. 
http://en. 


Arrays 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
Elementary_Functions 


.Wikibooks. 


wikibooks 


wikibooks 
wikibooks 


wikibooks. 


wikibooks. 


wikibooks. 
wikibooks. 


wikibooks. 
wikibooks. 


wikibooks. 


wikibooks. 
wikibooks. 


wikibooks. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Dispatching.EDF 
Dispatching.Round. 


Dynamic Priorities 
Environment 


Exceptions 
Execution, Time 
Execution Time. 


Execution Time. 


Finalization 
Float Text IO 


Float Wide Text IO 
Float Wide Wide. 


Integer Text IO 


Integer Wide Text IO 


Integer Wide Wide. 


Interrupts 
Interrupts.Names 
IO Exceptions 
Numerics 
Numerics.Complex_ 


Numerics.Complex_ 


339 


Libraries: Ada 


Ada.Numerics.Complex_ Types”? 
Ada.Numerics.Discrete Random?9 


Ada.Numerics.Elementary Functions 


5T 


Ada.Numerics.Float Random? 
Ada.Numerics.Generic Complex Arrays?? (Ada 2005) 


Ada.Numerics.Generic Complex Elementary Functions 


60 


Ada.Numerics.Generic. Complex Types?! 


Ada.Numerics.Generic Elementary Functions 


62 


Ada.Numerics.Generic Real Arrays? (Ada 2005) 
Ada.Numerics.Real ArraysÓ^ (Ada 2005) 








42.1.4 R-S 


Ada.Real Time® 

Ada.Real Time.Timing EventsÓ? (Ada 2005) 
Ada.Sequential IO? 

Ada.Storage 10% 

Ada.Streams® 

Ada.Streams.Stream_ 10" 

Ada.Strings”? 

Ada.Strings.Bounded”? 

Ada.Strings.Bounded.Hash”* (Ada 2005 generic function) 
Ada.Strings.Fixed™ 

Ada.Strings.Fixed.Hash” (Ada 2005 generic function) 
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http://en. 
Types 
http://en. 
Rando. 
http: dien. 
Functions 
http://en. 
Rando 
http: dien. 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Arrays 


http://en. 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Elementary_Functions 


http://en. 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Types 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Elementary_Functions 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Real_Arrays 


http://en. 
http://en. 
http://en. 


Events 
http://en. 


http://en. 
http: //en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 
http://en. 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Numerics.Complex_ 


Numerics.Discrete_ 
Numerics.Elementary_ 
Numerics.Float_ 


Numerics.Generic_ 
Numerics.Generic_ 
Numerics.Generic_ 
Numerics.Generic_ 


Numerics.Generic_ 


Numerics.Real_Arrays 
Real_Time 
Real_Time.Timing_ 


Sequential IO 
Storage IO 

Streams 
Streams.Stream IO 
Strings 
Strings.Bounded 
Strings.Bounded.Hash 
Strings.Fixed 
Strings.Fixed.Hash 


Ada.Strings.Hash’® (Ada 2005 generic function) 
Ada.Strings.Maps”” 

Ada.Strings. Maps.Constants’® 

Ada.Strings.Unbounded”? 

Ada.Strings.Unbounded.Hash?? (Ada 2005 generic function) 
Ada.Strings. Wide Bounded?! 

Ada.Strings.Wide Bounded.Wide Hash*? (Ada 2005 generic function) 
Ada.Strings.Wide Fixed?? 
Ada.Strings.Wide Fixed.Wide Hash?* (Ada 2005 generic function) 
Ada.Strings.Wide Hash* (Ada 2005 generic function) 
Ada.Strings.Wide Maps? 
Ada.Strings. Wide Maps.Wide Constants*" 
Ada.Strings. Wide Unbounded*? 
Ada.Strings. Wide Unbounded.Wide Hash*? (Ada 2005 generic function) 
Ada.Strings. Wide Wide Bounded?? (Ada 2005) 
Ada.Strings. Wide Wide Bounded.Wide Wide Hash?! (Ada 2005 generic function) 
Ada.Strings. Wide Wide Fixed?? (Ada 2005) 
Ada.Strings.Wide Wide Fixed.Wide Wide Hash?? (Ada 2005 generic function) 
Ada.Strings. Wide Wide Hash?^ (Ada 2005 generic function) 
Ada.Strings.Wide Wide Maps?? (Ada 2005) 

Ada.Strings. Wide Wide Maps.Wide Wide Constants% (Ada 2005) 





http://en. 
http://en. 
http://en. 


Constants 


http://en. 
http://en. 


Hash 


http://en. 
http://en. 


Wide Hash 


http://en. 
http://en. 


Wide Hash 


http://en. 
http://en. 
http://en. 


wikibooks. 


wikibooks. 
wikibooks. 


wikibooks. 
wikibooks. 


wikibooks. 
wikibooks. 


wikibooks. 
wikibooks. 


wikibooks. 


wikibooks. 
wikibooks. 


Wide Constants 


http://en. 
Unbo ed 
Beeps) en: 
Unbounded. 
http://en. 


Bounde 
AO 


wikibooks. 
wikibooks. 
Wide_Hash 

wikibooks. 


wikibooks. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
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org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Bounded.Wide Wide Hash 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Fixe 


d 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Fixed.Wide_Wide_Hash 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Hash 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Maps 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Maps.Wide Wide Constants 


Strings. 
Strings. 
Strings. 


Strings. 
Strings. 


Strings. 
Strings. 


Strings. 
Strings. 


Strings. 
Strings. 
Strings. 
Strings. 
Strings. 
Strings. 
Strings. 
Strings. 
Strings. 
Strings. 


Strings. 


Strings. 


Hash 
Maps 
Maps. 


Unbounded 
Unbounded. 


Wide Bounded 
Wide Bounded. 


Wide Fixed 
Wide Fixed 


Wide Hash 
Wide Maps 
Wide Maps. 
Wide. 
Wide. 

Wide Wide. 
Wide Wide. 
Wide Wide. 
Wide Wide. 
Wide Wide. 
Wide Wide. 


Wide Wide. 
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e Ada.Strings.Wide Wide Unbounded?” (Ada 2005) 

e Ada.Strings.Wide Wide Unbounded.Wide Wide Hash?? (Ada 2005 generic func- 
tion) 

e Ada.Synchronous Task Control?? 


42.1.5 T— U 


e Ada. Tags!90 

e Ada.Tags.Generic Dispatching Constructor 
e Ada.Task Attributes! 

e Ada.Task Identification! 

e Ada. Task Termination!?^ (Ada 2005) 

e Ada.Text 10105 

e Ada.Text IO.Bounded IO!96 (Ada 2005) 

e Ada. Test IO.Complex IO!97 

e Ada.Text IO.Decimal IO!9* (Nested package of Ada.Text IO ) 

e Ada.Text_10.Editing!% 

e Ada.Text IO.Enumeration IO!!? (Nested package of Ada.Text IO!!!) 
e Ada.Text IO.Fixed IO!!? (Nested package of Ada.Text IO ) 

e Ada.Text IO.Float IO!!? (Nested package of Ada.Text IO ) 

e Ada.Text IO.Integer IO!!4 (Nested package of Ada.Text IO ) 

e Ada Dest IO.Modular IO!!? (Nested package of Ada.Text IO ) 

e Ada.Text IO.Text Streams!!6 

e Ada.Text IO.Unbounded IO!!" (Ada 2005) 

e Ada.Unchecked_Conversion!! (generic function) 


101 (generic function) 





http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Strings.Wide_Wide_ 


97 
ri sn SH SS i t gno NU : , y 
98 http:/ en.wikibooks.org/wiki/Ada/20Programming/2FLibrariesA2FAda.Strings.Wide Wide 
Unbounded.Wide Wide Hash 
99 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Synchronous_Task_ 


Control 
100 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Tags 


101 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Tags.Generic_ 


Dispatching_Constructor 
102 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Task_Attributes 


103 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Task_Identification 
104 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Task_Termination 
105 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0 

106 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Bounded_I0 
107 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Complex_I0 
108 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Decimal_I0 


109 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Editing 
110 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Enumeration_ 


IO 
111 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0 


112 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Fixed_I0 

113 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Float_I0 

114 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Integer_I0 
115 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Modular_I0 
116 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Text_Streams 
117 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2FAda.Text_I0.Unbounded_I0 
118 http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Unchecked_Conversion 
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e Ada.Unchecked Deallocation!? (generic procedure) 


42.1.6 W-Z 


e Ada.Wide Characters!?? (Ada 2005) 

e Ada. Wide Text IOHP! 

e Ada. Wide Text IO.Bounded IO!?? (Ada 2005) 
e Ada. Wide Text IO.Complex IO? 

e Ada.Wide Text IO.Decimal IO!?* (Nested package of Ada. Wide Text IO ) 
e Ada. Wide Text IO.Editing!?5 
e Ada. Wide Text IO.Enumeration IO!?6 (Nested package of Ada. Wide Text IO ) 
e Ada.Wide Text IO.Fixed IO? (Nested package of Ada. Wide "ext IO ) 

e Ada.Wide Text IO.Float IO'?5 (Nested package of Ada.Wide Text IO ) 

e Ada.Wide Text IO.Integer IO!?? (Nested package of Ada. Wide "ext IO ) 

e Ada.Wide Text IO.Modular IO'?? (Nested package of Ada.Wide Text IO ) 

e Ada.Wide Text IO.Text Streams?! 

e Ada Wide Text IO.Unbounded IO!?? (Ada 2005) 


e Ada Wide Wide ` 
e Ada Wide Wide ` 
e Ada Wide Wide ` 
e Ada Wide Wide ` 


Characters!?? (Ada 2005) 

Text IO!?* (Ada 2005) 

Text IO.Bounded IO!? (Ada 2005) 
Text IO.Complex IO!96 (Ada 2005) 





e Ada Wide Wide Text IO.Decimal IO!?" (Nested package of Ada.Wide Wide - 


Text IO ) 
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Integer IO 
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http://en.wikibooks. 


Stre 
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http://en.wikibooks. 
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Complex IO 
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org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda 


.Unchecked_ 


Wide_Characters 


.Wide Text IO 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Wide Text IO. 


.Wide Text IO. 


Wide Text IO. 


Wide Text IO.Editing 
Wide Text IO. 

Wide Text IO.Fixed. 
Wide Text IO.Float 


Wide Text IO. 
Wide Text IO. 
Wide Text IO.Text 


Wide Text IO. 


.Wide Wide Characters 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Wide Wide Text IO 
Wide Wide Text IO. 


Wide Wide Text IO. 


.Wide Wide Text IO. 
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e Ada.Wide Wide Text IO.Editing!?? (Ada 2005) 

e Ada.Wide Wide Text IO.Enumeration IO!?? (Nested package of Ada. Wide - 
Wide Text IO) 

e Ada.Wide Wide Text IO.Fixed IO!4 (Nested package of Ada.Wide Wide Text - 
IO ) 

e Ada.Wide Wide Text IO.Float IOH! (Nested package of Ada.Wide Wide Text - 
IO ) 

e Ada.Wide Wide Text IO.Integer IO!4?? (Nested package of Ada. Wide Wide - 
Text IO) 

e Ada.Wide Wide Text IO.Modular IO!? (Nested package of Ada.Wide Wide - 
Text IO ) 

e Ada.Wide Wide Text IO.Text Streams! ^^ (Ada 2005) 

e Ada.Wide Wide Text IO.Unbounded IO!^ (Ada 2005) 











42.2 List of implementation defined child units 


List of implementation defined child units 


The Reference Manual allows compiler vendors to add extensions to the Standard Libraries. 
However, these extensions cannot be directly childs of the package Ada, only grandchilds 
-- for example Ada.Characters.Latin 9. 
Currently, only the implementation defined library units of the GNAT!46 compiler are 
listed here. You can help Wikibooks by adding!^' implementation dependent packages 
of other compilers: 
GNAT 

Extended package implemented by GNAT!45, 
ObjectAda 

Extended package implemented by Object Ada. 
APEX 

Extended package implemented by IBM/Rational APEX. 





http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibrariesA2FAda.Wide Wide Text IO. 
Editin 
http: /Ten.wikibooks.org/wiki/Adal20Programming|2FLibraries!2FAda.Wide Wide Text IO. 


Enumeration IO 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibrariesA2FAda.Wide Wide Text IO. 


Fixed IO 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibraries/2FAda.Wide Wide Text IO. 


Float IO 
http://en.wikibooks.org/wiki/Ada/^20Programming/2FLibraries/A2FAda.Wide Wide Text IO. 


Integer IO 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibrariesA2FAda.Wide Wide Text IO. 


Modular IO 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibrariesA2FAda.Wide Wide Text IO. 


Text Streams 
http://en.wikibooks.org/wiki/Ada/20ProgrammingA2FLibrariesA2FAda.Wide Wide Text IO. 


Unbounded IO 
146 http://en.wikipedia.org/wiki/GNAT 
147 http://en.wikibooks.org/w/index.php?title-Ada Programming/Libraries/Ada&action-edit 
148 http://gcc.gnu.org/onlinedocs/gnat_rm/The-GNAT-Library.html 
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42.2.1 A- K 


Ada.Characters.Latin 9149 (GNAT) 
Ada.Characters.Wide Latin 1599 (GNAT) 
Ada.Characters.Wide Latin 91?! (GNAT) 
Ada.Characters.Wide Wide Latin 119? (GNAT) 
Ada.Characters.Wide Wide Latin 919? (GNAT) 
Ada. Command Line.Environment?* (GNAT) 
Ada.Command_ Line.Remove!? (GNAT) 

Ada. Direct IO.C. Streams? (GNAT) 


Ada.Exceptions.Is Null Occurrence!’ (GNAT child function) 








Ada.Exceptions.Traceback!%8 (GNAT) 


42.2.2 L-Q 


Ada Long Float Text IO!?? (GNAT) 

Ada Long Float Wide Text IO!9? (GNAT) 
Ada.Long Integer Text IO!9! (GNAT) 

Ada Long Integer Wide Text_10*'% (GNAT) 

Ada Long Long Float Text IO!6? (GNAT) 

Ada Long Long Float Wide Text IO!9^ (GNAT) 
Ada Long Long Integer Text IO!99 (GNAT) 

Ada Long Long Integer Wide "ext IO!69 (GNAT) 
Ada.Numerics.Long Complex Elementary Functions!67 (GNAT) 














http://en.wikibooks. 
http://en.wikibooks. 


Latin 1 


http://en.wikibooks. 


Latin 9 


http://en.wikibooks. 


Wide Latin 1 


http://en.wikibooks. 


Wide Latin 9 


http://en.wikibooks. 


Environment 


http://en.wikibooks. 
http://en.wikibooks. 
http://en.wikibooks. 


Occurrence 


http://en.wikibooks. 
http://en.wikibooks. 
http://en.wikibooks. 


Text IO 


http://en.wikibooks. 
http://en.wikibooks. 


Text IO 


http://en.wikibooks. 


Text IO 


http://en.wikibooks. 


Wide Text IO 


http://en.wikibooks. 


Text IO 


http://en.wikibooks. 


Wide Text IO 


http://en.wikibooks. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
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org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Elementary_Functions 


Characters.Latin_9 
Characters.Wide_ 


Characters.Wide_ 
Characters.Wide_ 
Characters.Wide_ 
Command_Line. 


Command_Line.Remove 
Direct_I0.C_Streams 
Exceptions.Is Null. 


Exceptions.Traceback 
Long Float Text IO 
Long Float Wide. 


Long Integer Text IO 
Long Integer Wide. 


Long Long Float. 
Long Long Float. 
Long Long Integer 
Long Long Integer 


Numerics.Long_ 
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Ada.Numerics.Long Complex Types!65 (GNAT) 
Ada.Numerics.Long Elementary Functions! (GNAT) 


Ada.Numerics.Long Long Complex Elementary Functions!" (GNAT) 


Ada.Numerics.Long Long Complex Types!" (GNAT) 


Ada.Numerics.Long Long Elementary Functions? (GNAT) 


Ada.Numerics.Short Complex Elementary Functions!? (GNAT) 


Ada.Numerics.Short Complex Types!" (GNAT) 
Ada.Numerics.Short Elementary Functions!” (GNAT) 








42.2.5 R- Z 


Ada.Sequential IO.C.. Streams! "6 (GNAT) 

Ada Short Float Text IO!'7 (GNAT) 

Ada.Short Float Wide Text IO!'5 (GNAT) 
Ada.Short Integer Text IO!'? (GNAT) 

Ada.Short Integer Wide Text IO!99 (GNAT) 
Ada.Short Short Integer Text IO!*?! (GNAT) 

Ada. Short Short Integer Wide Text IO!*9? (GNAT) 
Ada.Streams.Stream_10.C_ Streams? (GNAT) 
Ada.Strings.Unbounded.Text_ 101% (GNAT) 
Ada.Strings. Wide Unbounded.Wide Text_1018 (GNAT) 
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169 
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175 


176 
177 
178 


179 
180 
181 
182 
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184 
185 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Types 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Elementary_Functions 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Elementary_Functions 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Types 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Elementary_Functions 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Elementary_Functions 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Complex_Types 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Elementary_Functions 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Streams 
http://en.wikibooks. 


http://en.wikibooks. 


Text IO 
http://en.wikibooks. 


IO 
http://en.wikibooks. 


Text IO 
http://en.wikibooks. 


Text IO 
http://en.wikibooks. 


Wide Text IO 
http://en.wikibooks. 


Streams SCH 
http://en.wikibooks. 


Text IO 
http://en.wikibooks. 


Unbounded.Wide Text IO 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 
org/wiki/Ada/20Programming/2FLibraries/2FAda. 


org/wiki/Ada/20Programming/2FLibraries/2FAda. 


Numerics.Long_ 


Numerics.Long_ 
Numerics.Long_Long_ 
Numerics.Long_Long_ 
Numerics.Long_Long_ 
Numerics.Short_ 
Numerics.Short_ 

Numerics.Short_ 

Sequential_10.C_ 


Short Float Text IO 
Short Float Wide. 


Short Integer Text. 
Short Integer Wide. 
Short Short Integer. 
Short Short Integer. 
Streams .Stream_10.C_ 
Strings .Unbounded. 


Strings Wide 


e Ada.Strings. Wide Wide Unbounded.Wide Wide Text IO!56 (GNAT) 


e Ada.Text IO.C Streams!*?7 (GNAT) 
e Ada.Wide Text IO.C Streams! (GNAT) 
e Ada.Wide Wide Text IO.C Streams? (GNAT) 





42.3 See also 


See also 


42.3.1 Wikibook 


e Ada Programming! 

e Ada Programming/Libraries 
e Ada Programming/Libraries/Standard!?? 
e Ada Programming/Libraries/System!9?? 
e Ada Programming/Libraries/Interfaces! 


191 


94 


42.3.2 Ada Reference Manual 


A.2 The Package Ada “{http://www.adaic.org/resources/add_content/standards/ 
O5rm/htm1/RM-A-2.htm1} 





186 
187 
188 


189 


190 
191 
192 
193 
194 


http://en. 
Unbounded. 
http://en. 
http://en. 


Streams 
http://en. 


Streams 


http://en. 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda 
Wide Wide Text IO 

wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda 
wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda 


wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda 


wikibooks.org/wiki/Ada/20Programming 


Chapter 40 on page 331 
Chapter 41 on page 333 
Chapter 44 on page 351 
Chapter 43 on page 349 


.Strings.Wide Wide. 


.Text I0.C Streams 
.Wide Text IO0.C. 


.Wide Wide Text IO.C. 
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43 Libraries: Interfaces 


The Interfaces package helps in interfacing with other programming languages. Ada is 
one of the few languages where interfacing with other languages is part of the language 
standard. The language standard defines the interfaces for C!, Cobol? and Fortran?. Of 
course any implementation might define further interfaces — GNAT* for example defines 
an interface to C++°. 

Interfacing with other languages is actually provided by pragma , pragma and pragma 


43.1 Child Packages 
Child Packages 


e Interfaces.C® 
e Interfaces.C.Extensions’ (GNAT) 
e Interfaces.C.Pointers® 
e Interfaces.C.Streams? (GNAT) 
e Interfaces.C.Strings!? 
e Interfaces. CPP (GNAT) 
e Interfaces. COBOLY 
e Interfaces.FortranP? 
e Interfaces.OS2Lib!* (GNAT, OS/2) 
e Interfaces.OS2Lib.Errors (GNAT, OS/2) 
e Interfaces. OS2Lib.Synchronization!é (GNAT, OS/2) 
e Interfaces.OS2Lib.Threads!” (GNAT, OS/2) 
e Interfaces.Packed_Decimal!® (GNAT) 
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http://en.wikibooks.org/wiki/C/20Programming 

http://en.wikibooks.org/wiki/COBOL 
http://en.wikibooks.org/wiki/Programming/3AFortran 
http://en.wikibooks.org/wiki/Ada/20Programming/2FGNAT 
http://en.wikibooks.org/wiki/C/2B/2B/20Programming 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.C 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.C.Extensions 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.C.Pointers 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.C.Streams 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.C.Strings 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.CPP 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2F Interfaces .COBOL 
http://en.wikibooks.org/wiki/Ada/20Programming/,2FLibraries{2F Interfaces. Fortran 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.0S2Lib 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.0S2Lib.Errors 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.0S2Lib. 


Synchronization 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FInterfaces.0S2Lib. 


Threads 
Heep. / eu wikibooks .org/wiki/Ada%20Programming/2FLibraries%2FInterfaces .Packed_ 


Decimal 
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e Interfaces. Vx Works? (GNAT, VxWorks) 
e Interfaces. Vx Works.IO?? (GNAT, VxWorks) 


43.2 See also 


See also 


43.2.1 Wikibook 


e Ada Programming?! 

e Ada Programming/Libraries 
e Ada Programming/Libraries/Standard?? 
e Ada Programming /Libraries/Ada7* 

e Ada Programming /Libraries/System?° 


22 


43.2.2 Ada Reference Manual 
Ada 95 


e Annex B Interface to Other Languages “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-B.html) 

e B.2 The Package Interfaces ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-B-2.html) 


Ada 2005 


e Annex B Interface to Other Languages “{http://www.adaic.org/resources/add_ 
content/standards/Obrm/html/RM-B.html) 

e B.2 The Package Interfaces ^[http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-B-2.html) 





19 http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2F Interfaces.VxWorks 

20 = http://en.wikibooks. org/wiki/Ada/20Programming/2FLibraries/2F Interfaces. VxWorks . 10 
21  http://en.wikibooks.org/wiki/Ada/20Programming 

22 Chapter 40 on page 331 

23 Chapter 41 on page 333 

24 Chapter 42 on page 337 

25 Chapter 44 on page 351 
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44 Libraries: System 
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45 Libraries: GNAT 


The GNAT package hierarchy defines several units for general purpose programming 
provided by the GNAT compiler. It is distributed along with the compiler and uses the 
same license. 

GNAT-4-Object Ada! is a project for porting the GNAT library to the Object Ada compiler. 


45.1 Child packages 
Child packages 


e GNAT.Array_ Split? 
e GNAT.AWK? 
e GNAT.Bounded_Buffers* 
e GNAT.Bounded Mailboxes? 
e GNAT.Bubble Sort 
e GNAT.Bubble Sort A* 
e GNAT.Bubble Sort G® 
e GNAT.Calendar? 
e GNAT.Calendar.Time IO!? 
e GNAT.Case Util! 
e GNAT.CGI? 
e GNAT.CGI.Cookie!® 
e GNAT.CGI.Debug'* 
e GNAT.Command_Line!® 
e GNAT.Compiler Version! 
e GNAT.CRC32!7 
e GNAT.Ctrl_C!8 
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org/wiki/Ada/20Programming/2FLibraries/2FGNAT. 


Array_Split 

AWK 
Bounded_Buffers 
Bounded_Mailboxes 
Bubble_Sort 


.Bubble_Sort_A 
.Bubble_Sort_G 


Calendar 
Calendar Time IO 
Case Util 

CGI 

CGI.Cookie 
CGI.Debug 
Command Line 


.Compiler Version 


CRC32 
Ctrl C 
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GNAT.E 


xpect?? 


GNAT.HTable?4 
GNAT.IO?5 


ONAT IO Aus 
GNAT.Lock Files?" 


GNAT.MD5?? 








GNAT.Current_ Exception!” 

GNAT.Debug Pools?? 

GNAT.Debug Utilities?! 

GNAT.Directory Operations?? 
GNAT.Directory Operations.Iteration?? 
GNAT.Dynamic_HTables?* 
GNAT.Dynamic_ Tables? 
GNAT.Exception Actions” 
GNAT.Exceptions?” 

GNAT.Exception_ Traces?® 


GNAT.Float Control? 
GNAT.Heap Sort?! 

GNAT.Heap Sort A?? 
GNAT.Heap Sort CH 


GNAT.Memory Dump?? 

GNAT.Most Recent Exception?? 
GNAT.OS Lib?! 
GNAT.Perfect Hash Generators?? 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT. 


Operations .Iteration 
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Current_Exception 
Debug_Pools 
Debug_Utilities 
Directory_ 


Directory_ 


Dynamic_HTables 
Dynamic_Tables 
Exception_Actions 
Exceptions 
Exception_Traces 
Expect 
Float_Control 
Heap_Sort 
Heap_Sort_A 
Heap_Sort_G 
HTable 

IO 

IO Aux 

Lock Files 

MD5 


Memory Dump 
Most Recent 


DS Lib 
Perfect Hash. 


GNAT.Regexp* 

GNAT.Registry** 

GNAT.Regpat* 

GNAT. Secondary Stack Info*6 
GNAT.Semaphores*” 

GNAT.Signals*® 

GNAT.Sockets*? (GNAT.Sockets examples??) 
e GNAT.Sockets.Constants?! 

e GNAT.Sockets.Linker Options?? 

e GNAT Sockets. Thin”? 
GNAT.Source Info?* 

GNAT.Spelling Checker?? 
GNAT.Spitbol®® 

e GNAT.Spitbol.Patterns?” 

e GNAT.Spitbol.Table Boolean new?? 
e GNAT.Spitbol.Table Integer?? 

e GNAT.Spitbol.Table VString new? 
GNAT.Strings®! 

GNAT.String Split? 

GNAT.Table® 

GNAT.Task Lock$4 

GNAT.Threads® 

GNAT. Traceback 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Registry 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Regpat 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Secondary_Stack_ 


Info 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Semaphores 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Signals 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT. Sockets 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Sockets_examples 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Sockets.Constants 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Sockets.Linker_ 
Options 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Sockets.Thin 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Source_Info 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Spelling_Checker 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Spitbol 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Spitbol.Patterns 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Spitbol.Table_ 


Boolean/20new 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Spitbol.Table_ 


Integer 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Spitbol.Table_ 


VString/20new 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT. Strings 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.String_Split 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Table 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Task_Lock 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT. Threads 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGNAT.Traceback 
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e GNAT.Traceback.Symbolic$" 
e GNAT.Wide String Split9? 


45.2 See also 


See also 


45.2.1 External links 
e The GNAT Library®? 


45.2.2 Wikibook 


e Ada Programming”? 
e Ada Programming /Libraries”! 





67  http://en.wikibooks.org/wiki/Ada/20Programing/2FLibraries/2FGNAT.Traceback.Symbolic 
68 | http://en.wikibooks.org/wiki/Ada/20Programming/2FLibrariesA2FGNAT.Wide String Split 
69  http://gcc.gnu.org/onlinedocs/gnat rm/The-GNAT-Library.html 

70 | http://en.wikibooks.org/wiki/Ada/20Programming 

71 Chapter 40 on page 331 
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46 Libraries: Multi-Purpose 


AdaCL, Ada Class Library! 
Filtering of text files, string tools, process control, command line parsing, CGI, garbage 
collector, components. 

Matreshka? 
Core components for information system development: Unicode support (case conver- 
sions and folding, collation, normalization); regular expression engine; XML processor; 
FastCGI, SQL database access. 

paraffin? 
"A suite of Ada 2005 generics to facilitate iterative and recursive parallelism".* Features 
include load-balancing and monitoring of stacks. 


46.1 See also 
See also 


46.1.1 Wikibook 


e Ada Programming? 


e Ada Programming/Libraries” 


46.1.2 Ada Reference Manual 


-- does not apply -- 


46.1.3 References 





JC Gär 


http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FAdaCL 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FMatreshka 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FParaffin 
Iterative and recursive parallelism generics for Ada 2005 5. , Retrieved 2012-08-28 
http://en.wikibooks.org/wiki/Ada/20Programming 

Chapter 40 on page 331 
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47 Libraries: Container 


The following Libraries help you store and manage objects inside container classes: 
Booch Components! 
the most complete of all container class libraries (at least when used with AdaCL, Ada 
Class Library?). 
AdaCL, Ada Class Library? 
A Booch Components? extension pack for storing indefinite objects. 
Charles? 
Build on the C++ STL and therefore very easy to learn for C++ developers. 
AI3029 
Proof of concept for Ada.Containers 
Ada.Containers? 
This language feature is only available in Ada 2005 
Stephe's Ada Library? 
dynamic arrays, lists, trees 


7 


47.1 See also 


See also 


47.1.1 Wikibook 


e Ada Programming!” 


e Ada Programming/Libraries!! 


47.1.2 Ada Reference Manual 


e A.18.1 The Package Containers ^(http://www.adaic.org/resources/add content/ 
standards/Obrm/html/RM-A-18-1.html) 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FContainer/2FBooch 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FAdaCL 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FAdaCL 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FContainer/2FBooch 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FContainer/2FCharles 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FContainer/2FAI302 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FAda.Containers 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FSAL 
http://en.wikibooks.org/wiki/Ada/20Programming 

Chapter 40 on page 331 
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48 Libraries: GUI 


The following libraries can be used to make Graphical User Interfaces: 
CLAW! 


Commercial GUI toolkit for Windows. Introductory Edition? is distributed under 


GMGPL?. 
GtkAda* 

Binding to the popular GTK+ toolkit. 
G Windows? 

RAD GUI Development Framework for Windows. 
Qt4Ada® 

An Ada2005 binding to Qt4. Under CeCILL license V2. 
Qt Ada’ 


An Ada2005 binding to the Qt libraries and associated tools. Under GPL and GMGPL® 


(commercially supported) licenses. 
libA gar? 

Ada bindings for the libagar!? OpenGL GUI library (BSD license). 
TASH"? 

TclAdaSHell, An Ada binding to Tcl/Tk. GPL with "Linking Exception”. 


48.1 See also 


See also 


48.1.1 Wikibook 


e Ada Programming!” 


e Ada Programming/Libraries!? 


48.1.2 Ada Reference Manual 


-- does not apply -- 
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http://www.rrsoftware.com/html/prodinf/claw/claw.htm 
http://www.adapower.com/adapower1/claw/ 

http://en.wikipedia. org/wiki/GMGPL 
http://en.wikibooks.org/wiki/Ada/20Programming/,2FLibraries{2FGUI/2FGtkAda 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGUI/2FGWindows 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGUI/2FQt4Ada 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGUI/2FQtAda 
http://en.wikipedia.org/wiki/GMGPL 
http://wiki.libagar.org/wiki/Ada_bindings 

http://libagar.org/ 

http://sourceforge.net/projects/tcladashell/ 
http://en.wikibooks.org/wiki/Ada/20Programming 
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48.1.3 External Links 


e adapower.com - Links to tools and Bindings for GUI Applications 
e adapower.com - Examples of programming GUIs in Ada!? 





14  http://www.adapower.com/index.php?Command-Class&ClassID-AdaGUI&Title-Ada-*GUI 
15 http://www.adapower.com/index.php?Command-Class&ClassID-GUIExamples&Title-GUI-* 


Examples 
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49 Libraries: Distributed Systems 


The following Libraries help you in Distributed programming: 
GLADE! 

A full implementation of the Ada Annex E: Distributed Systems? 
PolyORB? 

A CORBA‘ and Annex E: Distributed Systems? implementation. 


49.1 See also 


See also 


49.1.1 Wikibook 


e Ada Programming? 
e Ada Programming/Libraries 
e Programming: CORBA? 


T 


49.1.2 Ada Reference Manual 


e Annex E (normative) Distributed Systems “{http://www.adaic.org/resources/ 
add content/standards/Obrm/html/RM-E.html]) 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FDistributed/2FGLADE 
http://www.adaic.org/standards/951rm/html/RM-E.html 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FDistributed/2FPoly0ORB 
http://en.wikibooks.org/wiki/Programming/3ACORBA 
http://www.adaic.org/standards/951rm/html/RM-E.html 
http://en.wikibooks.org/wiki/Ada/20Programming 
Chapter 40 on page 331 

http://en.wikibooks.org/wiki/Programming/3ACORBA 
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50 Libraries: Databases 


The following libraries help you in Database programming: 
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51 Libraries: Web 


The following libraries help you in Internet or Web programming: 
AdaCL, Ada Class Library! 
Powerful CGI implementation. 


XML/Ada? 


XML and Unicode support. 


AWS? 


A full-featured Web-Server. 


Matreshka* 


FastCGI, XML, Unicode and localization support. 


51.1 See also 


See also 


51.1.1 Wikibook 


e Ada Programming? 


e Ada Programming/Libraries 


6 


51.1.2 Ada Reference Manual 


-- does not apply -- 
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http://en.wikibooks. 
http://en.wikibooks. 
http://en.wikibooks. 
http://en.wikibooks. 
http://en.wikibooks. 
Chapter 40 on page 331 


org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FAdaCL 
org/wiki/Ada/20Programming/2FLibraries/2F10/2FXML/2FAda 
org/wiki/Ada/20Programming/2FLibraries/2FWeb/2FAWS 
org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FMatreshka 
org/wiki/Ada/20Programming 
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52 Libraries: Input Output 


The following libraries help you when doing input/output!: 

AdaCL, Ada Class Library? 
A multipurpose library featuring filtering of text files, string I/O, command line parsing, 
etc. 

XML/Ada? 
XML and Unicode support. 

Matreshka* 
SAX-style XML reader and writer. Supports XML1.0 (Fifth Edition), XML1.1 (Second 
Edition), Namespaces in XML and XML Base Specifications. Strings, files and sockets 
can be used as input source in both blocking and non-blocking modes. Full Unicode 
support and many text codecs is provided also. 


52.1 See also 


See also 


52.1.1 Wikibook 


e Ada Programming? 


e Ada Programming/Libraries? 


52.1.2 Ada Reference Manual 
-- does not apply -- 
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Chapter 18 on page 147 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FAdaCL 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2F10/42FXML/2FAda 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FMultiPurpose/2FMatreshka 
http://en.wikibooks.org/wiki/Ada/20Programming 

Chapter 40 on page 331 
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53 Platform Support 


Ada is known to be very portable, but there is sometimes a necessity of using a specific 
platform feature. For that matter, there are some non-standard libraries. 
e Linux! 
e Windows? 
e POSIX systems? 
e Virtual machines 
e Java? 
e NEI 


4 


53.1 See also 


See also 


53.1.1 Wikibook 


e Ada Programming’ 


53.1.2 Ada Reference Manual 


-- does not apply -- 


53.1.3 Ada Quality and Style Guide 


e Chapter 7: Portability “{http://www.adaic.org/resources/add_content/docs/ 
95style/html/sec 7/] 
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Chapter 54 on page 377 

Chapter 55 on page 379 
http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FPOSIX 
Chapter 56 on page 381 
http://en.wikibooks.org/wiki/Ada/20Programming/2FPlatform/2FVM/2FJava 
http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FVM/2FdotNET 
http://en.wikibooks.org/wiki/Ada/20Programming 
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54 Platform: Linux 


The following libraries help you when you target the Linux Platform. 
Florist! 
POSIX.5 binding. It will let you perform Linux system calls in the POSIX subset. 
Ncurses? 
text terminal library. 
Texttools? 
ncurses-based library for the Linux console. 
GtkAda* 
GUI library (actually multiplatform). 


54.1 See also 


See also 


54.1.1 Wikibook 


e Ada Programming? 


e Ada Programming/Libraries? 


54.1.2 Ada Reference Manual 


-- does not apply -- 


54.1.3 External resources 


e The Big Online Book of Linux Ada Programming" 
e Ada in Debian GNU/Linux?, slides suitable for a 50minute presentation, by Ludovic 
Brenta?. 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FPOSIX 
http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FNcurses 
http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FTexttools 
http://en.wikibooks.org/wiki/Ada/20Programming/2FLibraries/2FGUI/2FGtkAda 
http://en.wikibooks.org/wiki/Ada/20Programming 
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http://www.pegasoft .ca/resources/boblap/book. html 
http://www.cs.kuleuven.be/-dirk/ada-belgium/events/06/060226-fosdem-4-ada-in-debian. 
pdf 

http://en.wikibooks.org/wiki/User/3ALudovic/20Brenta 
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55 Platform: Windows 


'The following Libraries and Tools help you when you target the MS-Windows Platform. 
GWindows! 
Win32 binding 
CLAW? 
Another Win32 binding that works with any Ada 95 compiler. An introductory edition 
is available free of charge for non-commercial use. 
GNATCOM? 
COM/DCOM|J ActiveX binding 
GNAVI* 
Visual RAD? (Rapid application development?) Development environment 
/Console/” 
Libraries for console I/O. 
/ Visual C++ - GNAT interface/® 
Guide for calling Ada functions from C++ using GNAT and Visual C++. 


55.1 See also 


See also 


55.1.1 Wikibook 


e Ada Programming? 


e Ada Programming/Libraries!? 


55.1.2 Ada Reference Manual 


-- does not apply -- 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FWindows/2Fwin32binding 
http: //www.rrsoftware.com/html/prodinf/claw/claw.htm 
http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FWindows/2Fwin32binding 
http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FWindows/2Fwin32binding 
http://en.wikipedia.org/wiki/Rapid_application_development 
http://en.wikipedia.org/wiki/Rapid/20application/20development 
http://en.wikibooks.org/wiki//2FConsole/2F 
http://en.wikibooks.org/wiki//2FVisual/20C/42B/2B%20-/20GNAT/20interface/2F 
http://en.wikibooks.org/wiki/Ada/20Programming 

Chapter 40 on page 331 
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56 Platform: Virtual Machines 


The following tools help you when you target a virtual machine. 
Java! 


Programming Ada 95 for Java's JVM (JGnat, AppletMagic) 
NET? 


Programming Ada for the NET Platform (GNAT Pro NET, A#) 


56.1 See also 


See also 


56.1.1 Wikibook 


e Ada Programming? 


e Ada Programming/Libraries? 


56.1.2 Ada Reference Manual 
-- does not apply -- 
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http://en.wikibooks.org/wiki/Ada/20Programming/2FPlatform/2FVM/2FJava 
http://en.wikibooks.org/wiki/Ada/20Programming/2FP1atform/2FVM/2FdotNET 
http://en.wikibooks.org/wiki/Ada/20Programming 

Chapter 40 on page 331 
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57 Portals 


57.1 Forges of open-source projects 
Forges of open-source projects 


SourceForge! 
Currently there are 200 Ada projects hosted at SourceForge — including the example 
programs for Ada Programming? wikibook. 
GitHub? 
A source code repository based on Git with many recent developments. 
Ada-centric forges 
There are some Ada-centric forges hosted by Ada associations and individuals: 
e http://forge.ada-ru.org 
e http://www.ada-france.org:8081 
e http://codelabs.ch 
e http://scm.ada.cx 
BerliOS* 


57.2 Directories of freely available tools and libraries 

Directories of freely available tools and libraries 

Ada Information Clearinghouse — Free Tools and Libraries? 

Oloh ( language summary, ada tag”, language search?) 
Oloh is a directory of Open Source projects. Its main features are source code analysis 
of public repositories and public reviews of projects. 

Freecode? 
Freecode, formerly Freshmeat.net, is a software directory where developers can register 
their projects and users find interesting software. Although the content is somewhat 
redundant to other portals, some projects are exclusively listed here. 


57.3 Collections of Ada source code 
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http://sourceforge.net/directory/language:ada/ 
https://sourceforge.net/projects/wikibook-ada 
https://github.com/languages/Ada 
http://developer.berlios.de/softwaremap/trove list.php?form cat-52 
http://www.adaic.org/ada-resources/tools-libraries/ 
http://www.ohloh.net/languages/21 

http://www.ohloh.net/tags/ada 
http://www.ohloh.net/p?page-3&q-language/3Aada&sort-relevance 
http://freecode.com/tags/ada?sort-vitality&with-&without- 
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Portals 


Collections of Ada source code 


AdaBasis!? 
AdaBasis consists of about 560 MB of public domain source code and documents, mainly 
taken from the Public Ada Library (PAL). The software has been classified and is 
presented in a hierarchical manner, separated in different application domains, and, for 
some domains, with an additional multi-faceted searching facility. 
'The intent is to provide students, teachers and researchers with a large collection of 
reusable Ada components and systems for use in language and software engineering 
courses. 
AdaBasis was set up by the Programming Languages Group of the Institut für Informatik 
at the University of Stuttgart, Germany. They plan to enlarge the library in the future, 
and welcome free public domain contributions. For more informations or to make 
suggestions please contact adabasis@informatik.uni-stuttgart.de!! 

The Public Ada Library (PAL)? 
The PAL is a library of Ada and VHDL software, information, and courseware that 
contains over 1 BILLION bytes of material (mainly in compressed form). All items in 
the PAL have been released to the public with unlimited distribution, and, in most cases 
(the exceptions are shareware), the items are freeware. 

[ftp 
/ /ftp.cs.kuleuven.ac.be/pub/Ada-Belgium/cdrom/index.html Ada and Software Engi- 
neering Library Version 2 (ASE2)] : The ASE2 Library contains over 1.1GB of material 
on Ada and Software Engineering assembled through a collaboration with over 60 orga- 
nizations. Walnut Creek CDROM once sold copies of this library. Nowadays it is no 
longer maintained but is still hosted in the Ada Belgium FTP server. It may contain 
useful resources, but it is highly redundant with other libraries. 

AdaPower!? 


A directory and collection of Ada tools and resources. 


57.4 See also 


See also 


57.4.1 Wikibook 

e Ada Programming! 

e Ada Programming/Tutorials!? 

e Ada Programming /Wikis!® 
57.4.2 Ada Reference Manual 


-- does not apply -- 





http://www.iste.uni-stuttgart.de/ps/adabasis.html 
mailto:adabasisQinformatik.uni-stuttgart.de 
http://www2.informatik.uni-stuttgart.de/iste/ps/ada-software/html/PAL.html 
http://www.adapower.com/index.php?Command-Packages&Title-PackagestfortReuse 
http://en.wikibooks.org/wiki/Ada/20Programming 

Chapter 58 on page 387 

http://en.wikibooks.org/wiki/Ada/20Programming/2FWikis 
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57.4.3 Ada Quality and Style Guide 


-- does not apply -- 
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58 Tutorials 


'This page contains a list of other Ada tutorials on the Net. 

1. Ada Programming!, available on Wikibooks, is currently the only tutorial based on 
the Ada 2005? standard and currently being updated to Ada 2012?. 

2. Lovelace’ is a free (no-charge), self-directed Ada 95 tutorial available on the World 
Wide Web (WWW). Lovelace assumes that the user already knows another algo- 
rithmic programming language, such as C, C++, or Pascal. Lovelace is interactive 
and contains many short sections, most of which end with a question to help ensure 
that users understand the material. Lovelace can be used directly from the WWW, 
downloaded, or run from CD-ROM. Lovelace was developed by David A. Wheeler. 

3. AdaTutor? is an interactive Ada 95 tutorial distributed as a public-domain Ada 
program. A web edition? of the tutorial is also available. 

4. The Ada-95: A guide for C and C++ programmers’ is a short hypertext tutorial 
for programmers who have a C or C++ style programming language background. It 
was written by Simon Johnston, with some additional text by Tucker Taft. PDF 
edition?. 

5. Dale Stanbrough's Introduction? is a set of notes that provide a simple introduction 
to Ada. This material has been used for a few years as a simple introduction to the 
language. 

6. Coronado Enterprises Ada 95 Tutorial: shareware edition!'?, commercial edition! . 
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http://en.wikibooks.org/wiki/Ada/20Programming 
Chapter 23 on page 219 
http://en.wikibooks.org/wiki/Ada/20Programming/2FAda/202012 
http: //www.dwheeler.com/lovelace/ 

http: //www.adatutor.com/ 
http://zhu-qy. blogspot .com.es/2012/08/adatutor .html 
http://www.adahome.com/Ammo/Cplp12Ada.htm1 
http://home.agh.edu.pl/~jpi/download/ada/guide-c2ada. pdf 
http://goanna.cs.rmit.edu.au/~dale/ada/aln. html 
http://www.infres.enst.fr/-pautet/Ada95/a95list.htm 
http://www.coronadoenterprises.com/tutorials/ada95/index.html 
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Web 2.0 


Here is a list of Web 2.0! resources about Ada: 


59.0.4 News & Blogs 


e reddit.com — Ada? | RSS], social news website on which users can post links to 
content on the web 

e Ada Gems? [| RSS?], programming tips and articles about specific language features 

e Planet Ada? | RSS”], an aggregate feed of mostly Ada-related blogs. 

e Ada Programming blog? | RSS°], by Martin Krischik and other authors 

e Kickin' the Darkness!? | RSS!!], by Marc A. Criley 

e Archeia!? | RSS!3], by Lucretia 

e Pragmatic Revelations! | RSS] 


59.0.5 Forums & developer rings 


e Stack Overflow — Ada questions! 
e Linked In — Ada developers group!” (free register needed) 
e Tek-Tips — Ada Forum!? 
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http: 
http: 


http 


http 


http 


//en.wikipedia.org/wiki/Web4202.0 
//www.reddit.com/r/ada/ 


://waw.reddit.com/r/ada/.rss 
http: 
http: 
http: 
http: 
http: 
http: 
http: 


/ / vuv . adacore.com/category/developers-center/gems/ 
/ / www .adacore.com/rss/gems 

/ /planet.ada.cx/ 

//planet.ada.cx/rss20.xml 
//ada-programming.blogspot.com/ 
//ada-programming.blogspot.com/feeds/posts/default 
/ /blog.kickin-the-darkness.com/search/label/Ada 


://blog.kickin-the-darkness.com/feeds/posts/default 
http: 
http: 
http: 
http: 


//www.archeia.com/ 

//waw.archeia.com/rss_feed. html 
//adrianhoe.com/adrianhoe/category/software development/ada/ 
//adrianhoe.com/adrianhoe/feed/rss/ 


://stackoverflow.com/questions/tagged/ada 
http: 
http: 


/ / vw .linkedin.com/groups?gid-114211 
//www.tek-tips.com/threadminder.cfm?pid-199 
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Web 2.0 


59.0.6 General Info 


e SlideShare?, presentations about Ada?. See also: Ada programming?!, Ada 95%, 
Ada 2005%%, Ada 201274 tag pages. 

e Ohloh?5, a directory of Open Source projects. Its main features are source code 
analysis? of public repositories and public reviews of projects 

e Ada Commons?', wiki for Ada developers 

e Ada@Krischik?®, Ada homepage of Martin Krischik 

e WikiCFP — Calls For Papers on Ada?” [ RSS??] 

e AdaCore channel on youtube.com?!, Ada related videos. 


59.0.7 Wikimedia projects 


e Wikipedia articles (Ada category??): 
e Ada?’ 
e Jean Ichbiah*4 
* Beaujolais effec 
e ISO 865276 
e Ada Semantic Interface Specification? 


(35 


7 


e Wiktionary entries: 
e ACATS$ 
e Ada? 
e ASIS?0 
e Wikisource documents: 
e Steelman language requirements?! 
e Stoneman requirements? 
e Wikibooks tutorials: 
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24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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http://www.slideshare.net/ 
http://www.slideshare.net/group/ada-programming/slideshows 
http://www.slideshare.net/tag/ada-programming 
http://www.slideshare.net/tag/ada-95 
http://www.slideshare.net/tag/ada-2005 
http://www.slideshare.net/tag/ada-2012 
http://www.ohloh.net/tags/ada 

http://www.ohloh.net/languages/21 

http://commons.ada.cx 

http://ada.krischik.com 
http://www.wikicfp.com/cfp/call?conference-ada 
http://www.wikicfp.com/cfp/rss?cat-ada 
http://www.youtube.com/user/AdaCore05 

http://en.wikipedia. org/wiki/Category/,3AAda/,20programming/20language 
http: //en.wikipedia. org/wiki/Ada/20/28programming/,20language/,29 
http://en.wikipedia.org/wiki/Jean/20Ichbiah 

http://en.wikipedia. org/wiki/Beaujolais/20effect 

http: //en. wikipedia. org/wiki/IS0%208652 
http://en.wikipedia.org/wiki/Ada/20Semantic/20Interface/208pecification 
http://en.wiktionary.org/wiki/ACATS 
http://en.wiktionary.org/wiki/Ada 
http://en.wiktionary.org/wiki/ASIS 
http://en.wikisource.org/wiki/Steelman/20language/20requirements 
http://en.wikisource.org/wiki/Stoneman/20requirements 
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e Programación en Ada^?, in Spanish 
e Programmation Ada*, in French 

e Ada^^, in Italian 

e Wikiquote: 

e Programming languages — Ada*® 

e Wikiversity: 

e Ada course?" (you can enroll!) 


59.0.8 Source code 


e Examples Ada Programming wikibook*8 


e Rosetta Code — Ada Category*”, programming examples in multiple languages 
e literateprograms.org — Ada Category”, examples of literate programming?! in multi- 
ple languages 


59.0.9 Projects 


AdaCL?? 
The Ada 95 Booch Components”? 
The GNU Ada Compiler?! 





e ASIS?? 
e GLADE” 
e Florist?" 
e GNAT — GCC Wiki? 
e RTEMSAda?? 
e AVR-Ada®? - Ada compiler for Atmel microcontrollers (Arduinos) 
Web 2.0°! 
43  http://en.wikibooks.org/wiki//3Aes/3AProgramaci/F3n_en_Ada 
44  http://en.wikibooks.org/wiki/A3Afr/3AProgrammation Ada 
45  http://en.wikibooks.org/wiki//3Ait/3AAda 
46 http://en.wikiquote.org/wiki/Programming_languages#Ada 
47  http://en.wikiversity.org/wiki/Ada 
48  http://wikibook-ada.sourceforge.net 
49 http://www.rosettacode.org/wiki/Ada 
50  http://en.literateprograms.org/Category:Programming language: Ada 
51 http://en.wikipedia.org/wiki/literate/20programming 
52  http://adacl.sourceforge.net/index.php 
53  http://booch95.sourceforge.net/pmwiki.php 
54  http://gnuada.sourceforge.net 
55  http://gnat-asis.sourceforge.net 
56 http://gnat-glade.sourceforge.net 
57  http://gnat-florist.sourceforge.net 
58  http://gcc.gnu.org/wiki/GNAT 
59  http://www.rtems.com/wiki/index.php/RTEMSAda 
60 http://avr-ada.sourceforge.net/ 
61  http://en.wikibooks.org/wiki/Category/3AAda/20Programming 
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61 Licenses 


61.1 GNU GENERAL PUBLIC LICENSE 


Version 3, 29 June 2007 

Copyright O 2007 Free Software Foundation, Inc. 
<http://fsf.org/> 

Everyone is permitted to copy and distribute verba- 
tim copies of this license document, but changing 
it is not allowed. Preamble 

The GNU General Public License is a free, copyleft 
license for software and other kinds of works. 

The licenses for most software and other practi- 
cal works are designed to take away your freedom 
to share and change the works. By contrast, the 
GNU General Public License is intended to guaran- 
tee your freedom to share and change all versions 
of a program-to make sure it remains free software 
for all its users. We, the Free Software Foundation, 
use the GNU General Public License for most of our 
software; it applies also to any other work released 
this way by its authors. You can apply it to your 
programs, too. 

When we speak of free software, we are referring 
to freedom, not price. Our General Public Li- 
censes are designed to make sure that you have 
the freedom to distribute copies of free software 
(and charge for them if you wish), that you receive 
source code or can get it if you want it, that you 
can change the software or use pieces of it in new 
free programs, and that you know you can do these 
things. 

To protect your rights, we need to prevent others 
from denying you these rights or asking you to sur- 
render the rights. Therefore, you have certain re- 
sponsibilities if you distribute copies of the soft- 
ware, or if you modify it: responsibilities to respect 
the freedom of others. 

For example, if you distribute copies of such a pro- 
gram, whether gratis or for a fee, you must pass 
on to the recipients the same freedoms that you re- 
ceived. You must make sure that they, too, receive 
or can get the source code. And you must show 
them these terms so they know their rights. 
Developers that use the GNU GPL protect your 
rights with two steps: (1) assert copyright on the 
software, and (2) offer you this License giving you 
legal permission to copy, distribute and/or modify 
it. 

For the developers’ and authors’ protection, the 
GPL clearly explains that there is no warranty for 
this free software. For both users’ and authors’ 
sake, the GPL requires that modified versions be 
marked as changed, so that their problems will not 
be attributed erroneously to authors of previous 
versions. 

Some devices are designed to deny users access to 
install or run modified versions of the software in- 
side them, although the manufacturer can do so. 
This is fundamentally incompatible with the aim 
of protecting users’ freedom to change the software. 
The systematic pattern of such abuse occurs in the 
area of products for individuals to use, which is 
precisely where it is most unacceptable. Therefore, 
we have designed this version of the GPL to pro- 
hibit the practice for those products. If such prob- 
lems arise substantially in other domains, we stand 
ready to extend this provision to those domains in 
future versions of the GPL, as needed to protect 
the freedom of users. 

Finally, every program is threatened constantly by 
software patents. States should not allow patents 
to restrict development and use of software on 
general-purpose computers, but in those that do, 
we wish to avoid the special danger that patents 
applied to a free program could make it effectively 
proprietary. To prevent this, the GPL assures that 
patents cannot be used to render the program non- 
free. 

The precise terms and conditions for copying, dis- 
tribution and modification follow. TERMS AND 
CONDITIONS 0. Definitions. 

“This License" refers to version 3 of the GNU Gen- 
eral Public License. 

“Copyright” also means copyright-like laws that ap- 
ply to other kinds of works, such as semiconductor 
masks. 

“The Program" refers to any copyrightable work 
licensed under this License. Each licensee is ad- 
dressed as “you”. “Licensees” and “recipients” may 
be individuals or organizations. 

To “modify” a work means to copy from or adapt 
all or part of the work in a fashion requiring copy- 
right permission, other than the making of an exact 
copy. The resulting work is called a “modified ver- 
sion” of the earlier work or a work “based on” the 
earlier work. 

A “covered work” means either the unmodified Pro- 
gram or a work based on the Program. 

To “propagate” a work means to do anything with it 
that, without permission, would make you directly 
or secondarily liable for infringement under appli- 
cable copyright law, except executing it on a com- 
puter or modifying a private copy. Propagation in- 
cludes copying, distribution (with or without mod- 
ification), making available to the public, and in 
some countries other activities as well. 

To “convey” a work means any kind of propagation 
that enables other parties to make or receive copies. 
Mere interaction with a user through a computer 
network, with no transfer of a copy, is not convey- 
ing. 

An interactive user interface displays “Appropriate 
Legal Notices” to the extent that it includes a con- 
venient and prominently visible feature that (1) dis- 
plays an appropriate copyright notice, and (2) tells 
the user that there is no warranty for the work (ex- 
cept to the extent that warranties are provided), 
that licensees may convey the work under this Li- 
cense, and how to view a copy of this License. If 
the interface presents a list of user commands or 
options, such as a menu, a prominent item in the 
list meets this criterion. 1. Source Code. 

The “source code” for a work means the preferred 
form of the work for making modifications to it. 
“Object code” means any non-source form of a 
work. 








A “Standard Interface” means an interface that ei- 
ther is an official standard defined by a recognized 
standards body, or, in the case of interfaces spec- 
ified for a particular programming language, one 
that is widely used among developers working in 
that language. 

The “System Libraries” of an executable work in- 
clude anything, other than the work as a whole, 
that (a) is included in the normal form of packag- 


ing a Major Component, but which is not part of 
that Major Component, and (b) serves only to en- 
able use of the work with that Major Component, 
or to implement a Standard Interface for which an 
implementation is available to the public in source 
code form. A “Major Component”, in this context, 
means a major essential component (kernel, window 
system, and so on) of the specific operating system 
(if any) on which the executable work runs, or a 
compiler used to produce the work, or an object 
code interpreter used to run it. 

The “Corresponding Source” for a work in object 
code form means all the source code needed to gen- 
erate, install, and (for an executable work) run 
the object code and to modify the work, including 
scripts to control those activities. However, it does 
not include the work's System Libraries, or general- 
purpose tools or generally available free programs 
which are used unmodified in performing those ac- 
tivities but which are not part of the work. For 
example, Corresponding Source includes interface 
definition files associated with source files for the 
work, and the source code for shared libraries and 
dynamically linked subprograms that the work is 
specifically designed to require, such as by intimate 
data communication or control flow between those 
subprograms and other parts of the work. 

The Corresponding Source need not include any- 
thing that users can regenerate automatically from 
other parts of the Corresponding Source. 

The Corresponding Source for a work in source code 
form is that same work. 2. Basic Permissions. 

All rights granted under this License are granted 
for the term of copyright on the Program, and are 
irrevocable provided the stated conditions are met. 
This License explicitly affirms your unlimited per- 
mission to run the unmodified Program. The out- 
put from running a covered work is covered by this 
License only if the output, given its content, con- 
stitutes a covered work. This License acknowledges 
your rights of fair use or other equivalent, as pro- 
vided by copyright law. 

You may make, run and propagate covered works 
that you do not convey, without conditions so long 
as your license otherwise remains in force. You may 
convey covered works to others for the sole purpose 
of having them make modifications exclusively for 
you, or provide you with facilities for running those 
works, provided that you comply with the terms 
of this License in conveying all material for which 
you do not control copyright. Those thus making or 
running the covered works for you must do so exclu- 
sively on your behalf, under your direction and con- 
trol, on terms that prohibit them from making any 
copies of your copyrighted material outside their 
relationship with you. 

Conveying under any other circumstances is permit- 
ted solely under the conditions stated below. Subli- 
censing is not allowed; section 10 makes it unneces- 
sary. 3. Protecting Users' Legal Rights From Anti- 
Circumvention Law. 

No covered work shall be deemed part of an effec- 
tive technological measure under any applicable law 
fulfilling obligations under article 11 of the WIPO 
copyright treaty adopted on 20 December 1996, or 
similar laws prohibiting or restricting circumven- 
tion of such measures. 

When you convey a covered work, you waive any 
legal power to forbid circumvention of technologi- 
cal measures to the extent such circumvention is ef- 
fected by exercising rights under this License with 
respect to the covered work, and you disclaim any 
intention to limit operation or modification of the 
work as a means of enforcing, against the work's 
users, your or third parties’ legal rights to forbid 
circumvention of technological measures. 4. Con- 
veying Verbatim Copies. 

You may convey verbatim copies of the Program's 
source code as you receive it, in any medium, pro- 
vided that you conspicuously and appropriately 
publish on each copy an appropriate copyright no- 
tice; keep intact all notices stating that this License 
and any non-permissive terms added in accord with 
section 7 apply to the code; keep intact all notices 
of the absence of any warranty; and give all recipi- 
ents a copy of this License along with the Program. 
You may charge any price or no price for each copy 
that you convey, and you may offer support or war- 
ranty protection for a fee. 5. Conveying Modified 
Source Versions. 

You may convey a work based on the Program, or 
the modifications to produce it from the Program, 
in the form of source code under the terms of sec- 
tion 4, provided that you also meet all of these con- 
ditions: 

* a) The work must 
that you modified it, and giving a relevant date. 
b) The work must carry prominent notices stating 
that it is released under this License and any con- 
ditions added under section 7. This requirement 
modifies the requirement in section 4 to *keep in- 
tact all notices". * c) You must license the entire 
work, as a whole, under this License to anyone who 
comes into possession of a copy. This License will 
therefore apply, along with any applicable section 7 
additional terms, to the whole of the work, and all 
its parts, regardless of how they are packaged. This 
License gives no permission to license the work in 
any other way, but it does not invalidate such per- 
mission if you have separately received it. * d) If 
the work has interactive user interfaces, each must 
display Appropriate Legal Notices; however, if the 
Program has interactive interfaces that do not dis- 
play Appropriate Legal Notices, your work need not 
make them do so. 

A compilation of a covered work with other sepa- 
rate and independent works, which are not by their 
nature extensions of the covered work, and which 
are not combined with it such as to form a larger 
program, in or on a volume of a storage or distri- 
bution medium, is called an *aggregate" if the com- 
pilation and its resulting copyright are not used to 
limit the access or legal rights of the compilation's 
users beyond what the individual works permit. In- 
clusion of a covered work in an aggregate does not 
cause this License to apply to the other parts of the 
aggregate. 6. Conveying Non-Source Forms. 

You may convey a covered work in object code form 
under the terms of sections 4 and 5, provided that 
you also convey the machine-readable Correspond- 
ing Source under the terms of this License, in one 
of these ways: 


arry prominent notices stating 
* 


* a) Convey the object code in, or embodied in, 
a physical product (including a physical distribu- 
tion medium), accompanied by the Corresponding 
Source fixed on a durable physical medium custom- 
arily used for software interchange. * b) Convey the 
object code in, or embodied in, a physical product 
(including a physical distribution medium), accom- 
panied by a written offer, valid for at least three 
years and valid for as long as you offer spare parts 
or customer support for that product model, to 
give anyone who possesses the object code either 
(1) a copy of the Corresponding Source for all the 
software in the product that is covered by this Li- 
cense, on a durable physical medium customarily 
used for software interchange, for a price no more 
than your reasonable cost of physically performing 
this conveying of source, or (2) access to copy the 
Corresponding Source from a network server at no 
charge. * c) Convey individual copies of the object 
code with a copy of the written offer to provide 
the Corresponding Source. This alternative is al- 
lowed only occasionally and noncommercially, and 
only if you received the object code with such an of- 
fer, in accord with subsection 6b. * d) Convey the 
object code by offering access from a designated 
place (gratis or for a charge), and offer equivalent 
access to the Corresponding Source in the same way 
through the same place at no further charge. You 
need not require recipients to copy the Correspond- 
ing Source along with the object code. If the place 
to copy the object code is a network server, the Cor- 
responding Source may be on a different server (op- 
erated by you or a third party) that supports equiv- 
alent copying facilities, provided you maintain clear 
directions next to the object code saying where to 
find the Corresponding Source. Regardless of what 
server hosts the Corresponding Source, you remain 
obligated to ensure that it is available for as long 
as needed to satisfy these requirements. * e) Con- 
vey the object code using peer-to-peer transmission, 
provided you inform other peers where the object 
code and Corresponding Source of the work are be- 
ing offered to the general public at no charge under 
subsection 6d. 

A separable portion of the object code, whose 
source code is excluded from the Corresponding 
Source as a System Library, need not be included 
in conveying the object code work. 

A "User Product" is either (1) a “consumer prod- 
uct”, which means any tangible personal property 
which is normally used for personal, family, or 
household purposes, or (2) anything designed or 
sold for incorporation into a dwelling. In deter- 
mining whether a product is a consumer product, 
doubtful cases shall be resolved in favor of cover- 
age. For a particular product received by a par- 
ticular user, ^normally used" refers to a typical or 
common use of that class of product, regardless of 
the status of the particular user or of the way in 
which the particular user actually uses, or expects 
or is expected to use, the product. A product is a 
consumer product regardless of whether the prod- 
uct has substantial commercial, industrial or non- 
consumer uses, unless such uses represent the only 
significant mode of use of the product. 
"Installation Information" for a User Product 
means any methods, procedures, authorization 
keys, or other information required to install and 
execute modified versions of a covered work in that 
User Product from a modified version of its Corre- 
sponding Source. The information must suffice to 
ensure that the continued functioning of the modi- 
fied object code is in no case prevented or interfered 
with solely because modification has been made. 
If you convey an object code work under this sec- 
tion in, or with, or specifically for use in, a User 
Product, and the conveying occurs as part of a 
transaction in which the right of possession and 
use of the User Product is transferred to the re- 
cipient in perpetuity or for a fixed term (regard- 
less of how the transaction is characterized), the 
Corresponding Source conveyed under this section 
must be accompanied by the Installation Informa- 
tion. But this requirement does not apply if neither 
you nor any third party retains the ability to install 
modified object code on the User Product (for ex- 
ample, the work has been installed in ROM). 

The requirement to provide Installation Informa- 
tion does not include a requirement to continue to 
provide support service, warranty, or updates for a 
work that has been modified or installed by the re- 
cipient, or for the User Product in which it has been 
modified or installed. Access to a network may be 
denied when the modification itself materially and 
adversely affects the operation of the network or 
violates the rules and protocols for communication 
across the network. 
Corresponding Source conveyed, 
Information provided, in accord with this section 
must be in a format that is publicly documented 
(and with an implementation available to the public 
in source code form), and must require no special 
password or key for unpacking, reading or copying. 
7. Additional Terms. 

* Additional permissions" are terms that supplement 
the terms of this License by making exceptions from 
one or more of its conditions. Additional permis- 
sions that are applicable to the entire Program 
shall be treated as though they were included in 
this License, to the extent that they are valid un- 
der applicable law. If additional permissions apply 
only to part of the Program, that part may be used 
separately under those permissions, but the entire 
Program remains governed by this License without 
regard to the additional permissions. 

When you convey a copy of a covered work, you may 
at your option remove any additional permissions 
from that copy, or from any part of it. (Additional 
permissions may be written to require their own re- 
moval in certain cases when you modify the work.) 
You may place additional permissions on material, 
added by you to a covered work, for which you have 
or can give appropriate copyright permission. 
Notwithstanding any other provision of this Li- 
cense, for material you add to a covered work, you 
may (if authorized by the copyright holders of that 
material) supplement the terms of this License with 
terms 
* a) Disclaiming warranty or limiting liability dif- 
ferently from the terms of sections 15 and 16 of this 
License; or * b) Requiring preservation of specified 
reasonable legal notices or author attributions in 
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that material or in the Appropriate Legal Notic 
displayed by works containing it; or * c) Prohibit 
ing misrepresentation of the origin of that material 
or requiring that modified versions of such material 
be marked in reasonable ways as different from the 
original version; or * d) Limiting the use for pub. 
licity purposes of names of licensors or authors of 
the material; or * e) Declining to grant rights under 
trademark law for use of some trade names, trade 
marks, or service marks; or * f) Requiring indem 
nification of licensors and authors of that material 
by anyone who conveys the material (or modified 
versions of it) with contractual assumptions of lia 
bility to the recipient, for any liability that these 
contractual assumptions directly impose on those 
licensors and authors. 
All other non-permissive additional terms are con 
sidered “further restrictions" within the meaning of 
section 10. If the Program as you received it, or any 
part of it, contains a notice stating that it is gov 
erned by this License along with a term that is a 
further restriction, you may remove that term. If a 
license document contains a further restriction but 
permits relicensing or conveying under this License 
you may add to a covered work material governed 
by the terms of that license document, provided 
that the further restriction does not survive such 
relicensing or conveying. 

If you add terms to a covered work in accord with 
this section, you must place, in the relevant source 
files, a statement of the additional terms that ap 
ply to those files, or a notice indicating where to 
find the applicable terms. 

Additional terms, permissive or non-permissive 
may be stated in the form of a separately written 
license, or stated as exceptions; the above require 
ments apply either way. 8. Termination. 

You may not propagate or modify a covered work 
except as expressly provided under this License 
Any attempt otherwise to propagate or modify it i 
void, and will automatically terminate your rights 
under this License (including any patent license: 
granted under the third paragraph of section 11). 
However, if you cease all violation of this License 
then your license from a particular copyright holder 
is reinstated (a) provisionally, unless and until the 
copyright holder explicitly and finally terminates 
your license, and (b) permanently, if the copyright 
holder fails to notify you of the violation by some 
reasonable means prior to 60 days after the cessa 
tion. 

Moreover, your license from a particular copyright 
holder is reinstated permanently if the copyright 
holder notifies you of the violation by some reason 
able means, this is the first time you have received 
notice of violation of this License (for any work 
from that copyright holder, and you cure the vi 
olation prior to 30 days after your receipt of the 
notice. 

Termination of your rights under this section does 
not terminate the licenses of parties who have re 
ceived copies or rights from you under this License 
If your rights have been terminated and not perma 
nently reinstated, you do not qualify to receive new 
licenses for the same material under section 10. 9 
Acceptance Not Required for Having Copies. 

You are not required to accept this License in or 
der to receive or run a copy of the Program. Ancil 
lary propagation of a covered work occurring solely 
as a consequence of using peer-to-peer transmission 
to receive a copy likewise does not require accep 
tance. However, nothing other than this License 
grants you permission to propagate or modify any 
covered work. These actions infringe copyright if 
you do not accept this License. Therefore, by mod 
ifying or propagating a covered work, you indicate 
your acceptance of this License to do so. 10. Auto 
matic Licensing of Downstream Recipients. 

Each time you convey a covered work, the recipient 
automatically receives a license from the original 
licensors, to run, modify and propagate that work 
subject to this License. You are not responsible 
for enforcing compliance by third parties with this 
License. 

An “entity transaction” is a transaction transfer 
ring control of an organization, or substantially all 
assets of one, or subdividing an organization, or 
merging organizations. If propagation of a cov. 
ered work results from an entity transaction, each 
party to that transaction who receives a copy of the 
work also receives whatever licenses to the work the 
party’s predecessor in interest had or could give un 
der the previous paragraph, plus a right to posses 
sion of the Corresponding Source of the work from 
the predecessor in interest, if the predecessor has it 
or can get it with reasonable efforts. 

You may not impose any further restrictions on the 
exercise of the rights granted or affirmed under thi: 
License. For example, you may not impose a license 
fee, royalty, or other charge for exercise of right: 
granted under this License, and you may not ini 
tiate litigation (including a cross-claim or counter 
claim in a lawsuit) alleging that any patent claim 
is infringed by making, using, selling, offering for 
sale, or importing the Program or any portion of it 
11. Patents. 

A “contributor” is a copyright holder who autho 
rizes use under this License of the Program or a 
work on which the Program is based. The work 
thus licensed is called the contributor’s “contribu 
tor version”. 

A contributor's “essential patent claims” are all 
patent claims owned or controlled by the contribu 
tor, whether already acquired or hereafter acquired 
that would be infringed by some manner, permit: 
ted by this License, of making, using, or selling its 
contributor version, but do not include claims that 
would be infringed only as a consequence of further 
modification of the contributor version. For pur 
poses of this definition, “control” includes the right 
to grant patent sublicenses in a manner consistent 
with the requirements of this License. 

Each contributor grants you a non-exclusive, world. 
wide, royalty-free patent license under the contrib 
utor’s essential patent claims, to make, use, sell, of 
fer for sale, import and otherwise run, modify and 
propagate the contents of its contributor version. 
In the following three paragraphs, a “patent li 
cense" is any express agreement or commitment 
however denominated, not to enforce a patent (such 
as an express permission to practice a patent or 
covenant not to sue for patent infringement). To 



































“grant” such a patent license to a party means to 
make such an agreement or commitment not to en- 
force a patent against the party. 

If you convey a covered work, knowingly relying 
on a patent license, and the Corresponding Source 
of the work is not available for anyone to copy, 
free of charge and under the terms of this License, 
through a publicly available network server or other 
readily accessible means, then you must either (1) 
cause the Corresponding Source to be so available, 
or (2) arrange to deprive yourself of the benefit 
of the patent license for this particular work, or 
(3) arrange, in a manner consistent with the re- 
quirements of this License, to extend the patent 
license to downstream recipients. “Knowingly re- 
lying” means you have actual knowledge that, but 
for the patent license, your conveying the covered 
work in a country, or your recipient's use of the cov- 
ered work in a country, would infringe one or more 
identifiable patents in that country that you have 
reason to believe are valid. 

If, pursuant to or in connection with a single trans- 
action or arrangement, you convey, or propagate 
by procuring conveyance of, a covered work, and 
grant a patent license to some of the parties re- 
ceiving the covered work authorizing them to use, 
propagate, modify or convey a specific copy of the 
covered work, then the patent license you grant is 
automatically extended to all recipients of the cov- 
ered work and works based on it. 

A patent license is *discriminatory" if it does not in- 
clude within the scope of its coverage, prohibits the 
exercise of, or is conditioned on the non-exercise 
of one or more of the rights that are specifically 
granted under this License. You may not convey a 
covered work if you are a party to an arrangement 
with a third party that is in the business of dis- 
tributing software, under which you make payment 
to the third party based on the extent of your ac- 
tivity of conveying the work, and under which the 
third party grants, to any of the parties who would 
receive the covered work from you, a discrimina- 
tory patent license ) in connection with copies 
of the covered work conveyed by you (or copies 
made from those copies), or (b) primarily for and in 
connection with specific products or compilations 
that contain the covered work, unless you entered 
into that arrangement, or that patent license was 
granted, prior to 28 March 2007. 

Nothing in this License shall be construed as ex- 
cluding or limiting any implied license or other de- 
fenses to infringement that may otherwise be avail- 





able to you under applicable patent law. 12. No 
Surrender of Others’ Freedom. 

If conditions are imposed on you (whether by court 
order, agreement or otherwise) that contradict the 
conditions of this License, they do not excuse you 
from the conditions of this License. If you cannot 
convey a covered work so as to satisfy simultane- 
ously your obligations under this License and any 
other pertinent obligations, then as a consequence 
you may not convey it at all. For example, if you 
agree to terms that obligate you to collect a roy- 
alty for further conveying from those to whom you 
convey the Program, the only way you could satisfy 
both those terms and this License would be to re- 
frain entirely from conveying the Program. 13. Use 
with the GNU Affero General Public License. 
Notwithstanding any other provision of this Li- 
cense, you have permission to link or combine any 
covered work with a work licensed under version 
3 of the GNU Affero General Public License into 
a single combined work, and to convey the result- 
ing work. The terms of this License will continue 
to apply to the part which is the covered work, but 
the special requirements of the GNU Affero General 
Public License, section 13, concerning interaction 
through a network will apply to the combination 
as such. 14. Revised Versions of this License. 

The Free Software Foundation may publish revised 
and/or new versions of the GNU General Public Li- 
cense from time to time. Such new versions will be 
similar in spirit to the present version, but may dif- 
fer in detail to address new problems or concerns. 
Each version is given a distinguishing version num- 
ber. If the Program specifies that a certain num- 
bered version of the GNU General Public License 
“or any later version" applies to it, you have the 
option of following the terms and conditions either 
of that numbered version or of any later version 
published by the Free Software Foundation. If the 
Program does not specify a version number of the 
GNU General Public License, you may choose any 
version ever published by the Free Software Foun- 
dation. 

If the Program specifies that a proxy can decide 
which future versions of the GNU General Public 
License can be used, that proxy's public statement 
of acceptance of a version permanently authorizes 
you to choose that version for the Program. 

Later license versions may give you additional or 
different permissions. However, no additional obli- 
gations are imposed on any author or copyright 
holder as a result of your choosing to follow a later 
version. 15. Disclaimer of Warranty. 





61.2 GNU Free Documentation License 


Version 1.3, 3 November 2008 

Copyright O 2000, 2001, 2002, 2007, 2008 Free Soft- 
ware Foundation, Inc. <http://fsf.org/> 

Everyone is permitted to copy and distribute verba- 
tim copies of this license document, but changing 
it is not allowed. 0. PREAMBLE 

The purpose of this License is to make a manual, 
textbook, or other functional and useful document 
"free" in the sense of freedom: to assure everyone 
the effective freedom to copy and redistribute it, 
with or without modifying it, either commercially 
or noncommercially. Secondarily, this License pre- 
serves for the author and publisher a way to get 
credit for their work, while not being considered 
responsible for modifications made by others. 

This License is a kind of "copyleft", which means 
that derivative works of the document must them- 
selves be free in the same sense. It complements 
the GNU General Public License, which is a copy- 
left license designed for free software. 

We have designed this License in order to use it 
for manuals for free software, because free software 
needs free documentation: a free program should 
come with manuals providing the same freedoms 
that the software does. But this License is not lim- 
ited to software manuals; it can be used for any tex- 
tual work, regardless of subject matter or whether 
it is published as a printed book. We recommend 
this License principally for works whose purpose is 
instruction or reference. 1. APPLICABILITY AND 
DEFINITIONS 

This License applies to any manual or other work, 
in any medium, that contains a notice placed by the 
copyright holder saying it can be distributed under 
the terms of this License. Such a notice grants a 
world-wide, royalty-free license, unlimited in dura- 
tion, to use that work under the conditions stated 
herein. The "Document", below, refers to any such 
manual or work. Any member of the public is a li- 
censee, and is addressed as "you". You accept the 
license if you copy, modify or distribute the work 
in a way requiring permission under copyright law. 
A "Modified Version" of the Document means any 
work containing the Document or a portion of it, ei- 
ther copied verbatim, or with modifications and/or 
translated into another language. 

A "Secondary Section' is a named appendix or a 
front-matter section of the Document that deals ex- 
clusively with the relationship of the publishers or 
authors of the Document to the Document's overall 
subject (or to related matters) and contains noth- 
ing that could fall directly within that overall sub- 
ject. (Thus, if the Document is in part a textbook 
of mathematics, a Secondary Section may not ex- 
plain any mathematics.) The relationship could be 
a matter of historical connection with the subject 
or with related matters, or of legal, commercial, 
philosophical, ethical or political position regard- 
ing them. 

The "Invariant Sections" are certain Secondary Sec- 
tions whose titles are designated, as being those of 
Invariant Sections, in the notice that says that the 
Document is released under this License. If a sec- 
tion does not fit the above definition of Secondary 
then it is not allowed to be designated as Invariant. 
The Document may contain zero Invariant Sections. 
If the Document does not identify any Invariant 
Sections then there are none. 

The "Cover Texts" are certain short passages of text 
that are listed, as Front-Cover Texts or Back-Cover 
Texts, in the notice that says that the Document is 
released under this License. A Front-Cover Text 
may be at most 5 words, and a Back-Cover Text 
may be at most 25 words. 

A "Transparent" copy of the Document means a 
machine-readable copy, represented in a format 
whose specification is available to the general pub- 
lic, that is suitable for revising the document 
straightforwardly with generic text editors or (for 
images composed of pixels) generic paint programs 
or (for drawings) some widely available drawing ed- 
itor, and that is suitable for input to text format- 
ters or for automatic translation to a variety of for- 
mats suitable for input to text formatters. A copy 
made in an otherwise Transparent file format whose 
markup, or absence of markup, has been arranged 
to thwart or discourage subsequent modification by 
readers is not Transparent. An image format is not 
Transparent if used for any substantial amount of 


text. A copy that is not "Transparent" is called 
"Opaque". 

Examples of Transparent 
copies include plain ASCII without markup, Tex- 
info input format, LaTeX input format, SGML or 
XML using a publicly available DTD, and standard- 
conforming simple HTML, PostScript or PDF de- 
signed for human modification. Examples of trans- 
parent image formats include PNG, XCF and JPG. 
Opaque formats include proprietary formats that 
can be read and edited only by proprietary word 
processors, SGML or XML for which the DTD 
and/or processing tools are not generally available, 
and the machine-generated HTML, PostScript or 
PDF produced by some word processors for output 
purposes only. 

The "Title Page" means, for a printed book, the 
title page itself, plus such following pages as are 
needed to hold, legibly, the material this License 
requires to appear in the title page. For works in 
formats which do not have any title page as such, 
"Title Page" means the text near the most promi- 
nent appearance of the work’s title, preceding the 
beginning of the body of the text. 

The "publisher" means any person or entity that 
distributes copies of the Document to the public. 
A section "Entitled XYZ" means a named subunit 
of the Document whose title either is precisely XYZ 
or contains XYZ in parentheses following text that 
translates XYZ in another language. (Here XYZ 
stands for a specific section name mentioned below, 
such as "Acknowledgements", "Dedications", "En- 
dorsements", or "History".) To "Preserve the Title" 
of such a section when you modify the Document 
means that it remains a section "Entitled XYZ" ac- 
cording to this definition. 

The Document may include Warranty Disclaimers 
next to the notice which states that this License 
applies to the Document. These Warranty Dis- 
claimers are considered to be included by reference 
in this License, but only as regards disclaiming war- 
ranties: any other implication that these Warranty 
Disclaimers may have is void and has no effect on 
the meaning of this License. 2 VERBATIM COPY- 
ING 

You may copy and distribute the Document in any 
medium, either commercially or noncommercially, 
provided that this License, the copyright notices, 
and the license notice saying this License applies to 
the Document are reproduced in all copies, and that 
you add no other conditions whatsoever to those 
of this License. You may not use technical mea- 
sures to obstruct or control the reading or further 
copying of the copies you make or distribute. How- 
ever, you may accept compensation in exchange for 
copies. If you distribute a large enough number of 
copies you must also follow the conditions in sec- 
tion 3. 

You may also lend copies, under the same condi- 
tions stated above, and you may publicly display 
copies. 3. COPYING IN QUANTITY 

If you publish printed copies (or copies in medi 
that commonly have printed covers) of the Doc- 
ument, numbering more than 100, and the Doc- 
ument's license notice requires Cover Texts, you 
must enclose the copies in covers that carry, clearly 
and legibly, all these Cover Texts: Front-Cover 
Texts on the front cover, and Back-Cover Texts 
on the back cover. Both covers must also clearly 
and legibly identify you as the publisher of these 
copies. The front cover must present the full title 
with all words of the title equally prominent and 
visible. You may add other material on the covers 
in addition. Copying with changes limited to the 
covers, as long as they preserve the title of the Doc- 
ument and satisfy these conditions, can be treated 
as verbatim copying in other respects. 

If the required texts for either cover are too volu- 
minous to fit legibly, you should put the first ones 
listed (as many as fit reasonably) on the actual 
cover, and continue the rest onto adjacent pages. 
If you publish or distribute Opaque copies of the 
Document numbering more than 100, you must ei- 
ther include a machine-readable Transparent copy 
along with each Opaque copy, or state in or with 
each Opaque copy a computer-network location 
from which the general network-using public has 
access to download using public-standard network 
protocols a complete Transparent copy of the Doc- 
ument, free of added material. If you use the lat- 


suitable formats for 








THERE IS NO WARRANTY FOR THE PRO- 
GRAM, TO THE EXTENT PERMITTED BY AP- 
PLICABLE LAW. EXCEPT WHEN OTHERWISE 
STATED IN WRITING THE COPYRIGHT HOLD- 
ERS AND/OR OTHER PARTIES PROVIDE THE 
PROGRAM “AS IS” WITHOUT WARRANTY OF 
ANY KIND, EITHER EXPRESSED OR IMPLIED, 
INCLUDING, BUT NOT LIMITED TO, THE IM- 
PLIED WARRANTIES OF MERCHANTABILITY 
AND FITNESS FOR A PARTICULAR PURPOSE. 
THE ENTIRE RISK AS TO THE QUALITY AND 
PERFORMANCE OF THE PROGRAM IS WITH 
YOU. SHOULD THE PROGRAM PROVE DEFEC- 
TIVE, YOU ASSUME THE COST OF ALL NECES- 
SARY SERVICING, REPAIR OR CORRECTION. 
16. Limitation of Liability. 

IN NO EVENT UNLESS REQUIRED BY APPLI- 
CABLE LAW OR AGREED TO IN WRITING 
WILL ANY COPYRIGHT HOLDER, OR ANY 
OTHER PARTY WHO MODIFIES AND/OR CON- 
VEYS THE PROGRAM AS PERMITTED ABOVE, 
BE LIABLE TO YOU FOR DAMAGES, IN- 
CLUDING ANY GENERAL, SPECIAL, INCIDEN- 
TAL OR CONSEQUENTIAL DAMAGES ARISING 
OUT OF THE USE OR INABILITY TO USE 
THE PROGRAM (INCLUDING BUT NOT LIM- 
ITED TO LOSS OF DATA OR DATA BEING REN- 
DERED INACCURATE OR LOSSES SUSTAINED 
BY YOU OR THIRD PARTIES OR A FAILURE 
OF THE PROGRAM TO OPERATE WITH ANY 
OTHER PROGRAMS), EVEN IF SUCH HOLDER 
OR OTHER PARTY HAS BEEN ADVISED OF 
THE POSSIBILITY OF SUCH DAMAGES. 17. In- 
terpretation of Sections 15 and 16. 

1f the disclaimer of warranty and limitation of lia- 
bility provided above cannot be given local legal ef- 
fect according to their terms, reviewing courts shall 
apply local law that most closely approximates an 
absolute waiver of all civil liability in connection 
with the Program, unless a warranty or assumption 
of liability accompanies a copy of the Program in 
return for a fee. 

END OF TERMS AND CONDITIONS How to Ap- 
ply These Terms to Your New Programs 

If you develop a new program, and you want it to 
be of the greatest possible use to the public, the 
best way to achieve this is to make it free software 
which everyone can redistribute and change under 
these terms. 

To do so, attach the following notices to the pro- 
gram. It is safest to attach them to the start of 
each source file to most effectively state the exclu- 
sion of warranty; and each file should have at least 


ter option, you must take reasonably prudent steps, 
when you begin distribution of Opaque copies in 
quantity, to ensure that this Transparent copy will 
remain thus accessible at the stated location until 
at least one year after the last time you distribute 
an Opaque copy (directly or through your agents or 
retailers) of that edition to the public. 

It is requested, but not required, that you con- 
tact the authors of the Document well before redis- 
tributing any large number of copies, to give them 
a chance to provide you with an updated version of 
the Document. 4. MODIFICATIONS 

You may copy and distribute a Modified Version of 
the Document under the conditions of sections 2 
and 3 above, provided that you release the Modi- 
fied Version under precisely this License, with the 
Modified Version filling the role of the Document, 
thus licensing distribution and modification of the 
Modified Version to whoever possesses a copy of it. 
In addition, you must do these things in the Modi- 
fied Version: 

* A. Use in the Title Page (and on the covers, if 
any) a title distinct from that of the Document, 
and from those of previous versions (which should, 
if there were any, be listed in the History section 
of the Document). You may use the same title as 
a previous version if the original publisher of that 
version gives permission. * B. List on the Title 
Page, as authors, one or more persons or entities 
responsible for authorship of the modifications in 
the Modified Version, together with at least five of 
the principal authors of the Document (all of its 
principal authors, if it has fewer than five), unless 
they release you from this requirement. * C. State 
on the Title page the name of the publisher of the 
Modified Version, as the publisher. * D. Preserve 
all the copyright notices of the Document. * E. Add 
an appropriate copyright notice for your modifica- 
tions adjacent to the other copyright notices. * F. 
Include, immediately after the copyright notices, a 
license notice giving the public permission to use 
the Modified Version under the terms of this Li- 
cense, in the form shown in the Addendum below. * 
G. Preserve in that license notice the full lists of In- 
variant Sections and required Cover Texts given in 
the Document's license notice. * H. Include an unal- 
tered copy of this License. * I. Preserve the section 
Entitled "History", Preserve its Title, and add to it 
an item stating at least the title, year, new authors, 
and publisher of the Modified Version as given on 
the Title Page. If there is no section Entitled "His- 
tory" in the Document, create one stating the title, 
year, authors, and publisher of the Document as 
given on its Title Page, then add an item describ- 
ing the Modified Version as stated in the previous 
sentence. * J. Preserve the network location, if any, 
given in the Document for public access to a Trans- 
parent copy of the Document, and likewise the net- 
work locations given in the Document for previous 
versions it was based on. These may be placed in 
the "History" section. You may omit a network lo- 
cation for a work that was published at least four 
years before the Document itself, or if the original 
publisher of the version it refers to gives permission. 
* K. For any section Entitled "Acknowledgements" 
or "Dedications", Preserve the Title of the section, 
and preserve in the section all the substance and 
tone of each of the contributor acknowledgements 
and/or dedications given therein. * L. Preserve all 
the Invariant Sections of the Document, unaltered 
in their text and in their titles. Section numbers or 
the equivalent are not considered part of the section 
titles. * M. Delete any section Entitled "Endorse- 
ments". Such a section may not be included in the 
Modified Version. * N. Do not retitle any existing 
section to be Entitled "Endorsements" or to conflict 
in title with any Invariant Section. * O. Preserve 
any Warranty Disclaimers. 

If the Modified Version includes new front-matter 
sections or appendices that qualify as Secondary 
Sections and contain no material copied from the 
Document, you may at your option designate some 
or all of these sections as invariant. To do this, add 
their titles to the list of Invariant Sections in the 
Modified Version's license notice. These titles must 
be distinct from any other section titles. 

You may add a section Entitled "Endorsements", 
provided it contains nothing but endorsements of 
your Modified Version by various parties for ex- 
ample, statements of peer review or that the text 


the *copyright" line and a pointer to where the f 
notice is found. 

«one line to give the program's name and a br 
idea of what it does.» Copyright (C) «yea 
«name of author 

This program is free software: you can redistribi 
it and/or modify it under the terms of the Gl 
General Public License as published by the F 
Software Foundation, either version 3 of the 
cense, or (at your option) any later version. 
This program is distributed in the hope tl 
it will be useful, but WITHOUT ANY WA 
RANTY; without even the implied warranty 
MERCHANTABILITY or FITNESS FOR A PA 
TICULAR PURPOSE. See the GNU General PuE 
License for more details. 

You should have received a copy of the GNU G 
eral Public License along with this program. If n 
see <http://www.gnu.org/licenses/>. 

Also add information on how to contact you by el 
tronic and paper mail. 

If the program does terminal interaction, make 
output a short notice like this when it starts in 
interactive mode: 

«program» Copyright (C) «year» «name of 
thor» 'This program comes with ABSOLUTE 
NO WARRANTY; for details type ‘show w’. Thi: 
free software, and you are welcome to redistribute 
under certain conditions; type 'show c' for detai 
The hypothetical commands 'show w and 'show 
should show the appropriate parts of the Gene 
Public License. Of course, your program's cc 
mands might be different; for a GUI interface, y 
would use an *about box". 

You should also get your employer (if you wi 








as a programmer) or school, if any, to sign 
"copyright disclaimer" for the program, if n 
essary. For more information on this, a 
how to apply and follow the GNU GPL, | 


<http://www.gnu.org/licenses/>. 

The GNU General Public License does not peri 
incorporating your program into proprietary p 
grams. If your program is a subroutine library, y 
may consider it more useful to permit linking p 
prietary applications with the library. If this 
what you want to do, use the GNU Lesser Gene 
Public License instead of this License. But fi 
please read <http://www.gnu.org/philosophy /w 
not-lgpl.html>. 





has been approved by an organization as the 
thoritative definition of a standard. 

You may add a passage of up to five words a: 
Front-Cover Text, and a passage of up to 25 woi 
as a Back-Cover Text, to the end of the list of Co: 
Texts in the Modified Version. Only one passage 
Front-Cover Text and one of Back-Cover Text n 
be added by (or through arrangements made | 
any one entity. If the Document already inclu 
a cover text for the same cover, previously add 
by you or by arrangement made by the same ent 
you are acting on behalf of, you may not add 

other; but you may replace the old one, on expli 
permission from the previous publisher that add 
the old one. 

The author(s) and publisher(s) of the Document 
not by this License give permission to use th 
names for publicity for or to assert or imply 

dorsement of any Modified Version. 5. COMB 
ING DOCUMENTS 

You may combine the Document with other do 
ments released under this License, under the ter 





defined in section 4 above for modified versio 
provided that you include in the combination 
of the Invariant Sections of all of the original d 
uments, unmodified, and list them all as Invari: 
Sections of your combined work in its license 
tice, and that you preserve all their Warranty I 
claimers. 

The combined work need only contain one copy 
this License, and multiple identical Invariant S 
tions may be replaced with a single copy. If thi 
are multiple Invariant Sections with the same na 
but different contents, make the title of each st 
section unique by adding at the end of it, in par 
theses, the name of the original author or publis] 
of that section if known, or else a unique num! 
Make the same adjustment to the section titles 
the list of Invariant Sections in the license not 
of the combined work. 

In the combination, you must combine any sectic 
Entitled "History" in the various original do 
ments, forming one section Entitled "History"; li 
wise combine any sections Entitled "Acknowled 
ments', and any sections Entitled "Dedicatioi 
You must delete all sections Entitled "Endo: 
ments". 6. COLLECTIONS OF DOCUMENTS 
You may make a collection consisting of the Do 
ment and other documents released under this 
cense, and replace the individual copies of this 
cense in the various documents with a single cc 
that is included in the collection, provided that y 
follow the rules of this License for verbatim copyi 
of each of the documents in all other respects. 
You may extract a single document from such a « 
lection, and distribute it individually under this 
cense, provided you insert a copy of this Licei 
into the extracted document, and follow this 
cense in all other respects regarding verbatim co 
ing of that document. 7. AGGREGATION WI' 
INDEPENDENT WORKS 

A compilation of the Document or its derivati 
with other separate and independent documents 
works, in or on a volume of a storage or distribut; 
medium, is called an "aggregate" if the copyright 
sulting from the compilation is not used to limit t 
legal rights of the compilation's users beyond wl 
the individual works permit. When the Docum 
is included in an aggregate, this License does 1 
apply to the other works in the aggregate which : 
not themselves derivative works of the Documer 
If the Cover Text requirement of section 3 is ap 
cable to these copies of the Document, then if 1 
Document is less than one half of the entire agg 
gate, the Document’s Cover Texts may be plac 
on covers that bracket the Document within i 
aggregate, or the electronic equivalent of cov 
if the Document is in electronic form. Otherw 
they must appear on printed covers that brac 
the whole aggregate. 8. TRANSLATION 
Translation is considered a kind of modification, 
you may distribute translations of the Docum 
under the terms of section 4. Replacing Invari: 
Sections with translations requires special pern 
sion from their copyright holders, but you may 
clude translations of some or all Invariant Sectic 
in addition to the original versions of these Inv: 
ant Sections. You may include a translation of t 
License, and all the license notices in the Docume 
and any Warranty Disclaimers, provided that y 








also include the original English version of this Li- 
cense and the original versions of those notices and 
disclaimers. In case of a disagreement between the 
translation and the original version of this License 
or a notice or disclaimer, the original version will 
prevail. 

If a section in the Document is Entitled "Acknowl- 
edgements", "Dedications", or "History", the re- 
quirement (section 4) to Preserve its Title (section 
1) will typically require changing the actual title. 
9. TERMINATION 

You may not copy, modify, sublicense, or distribute 
the Document except as expressly provided under 
this License. Any attempt otherwise to copy, mod- 
ify, sublicense, or distribute it is void, and will 
automatically terminate your rights under this Li- 
cense. 

However, if you cease all violation of this License, 
then your license from a particular copyright holder 
is reinstated (a) provisionally, unless and until the 
copyright holder explicitly and finally terminates 
your license, and (b) permanently, if the copyright 
holder fails to notify you of the violation by some 
reasonable means prior to 60 days after the cessa- 
tion. 

Moreover, your license from a particular copyright 
holder is reinstated permanently if the copyright 
holder notifies you of the violation by some reason- 
able means, this is the first time you have received 
notice of violation of this License (for any work) 
from that copyright holder, and you cure the vi- 


olation prior to 30 days after your receipt of the 
notice. 

Termination of your rights under this section does 
not terminate the licenses of parties who have re- 
ceived copies or rights from you under this License. 
If your rights have been terminated and not perma- 
nently reinstated, receipt of a copy of some or all 
of the same material does not give you any rights 
to use it. 10. FUTURE REVISIONS OF THIS LI- 
CENSE 

The Free Software Foundation may publish new, re- 
vised versions of the GNU Free Documentation Li- 
cense from time to time. Such new versions will be 
similar in spirit to the present version, but may dif- 
fer in detail to address new problems or concerns. 
See http://www.gnu.org/copyleft/. 

Each version of the License is given a distinguish- 
ing version number. If the Document specifies that 
a particular numbered version of this License "or 
any later version" applies to it, you have the op- 
tion of following the terms and conditions either of 
that specified version or of any later version that 
has been published (not as a draft) by the Free Soft- 
ware Foundation. If the Document does not specify 
a version number of this License, you may choose 
any version ever published (not as a draft) by the 
Free Software Foundation. If the Document speci- 
fies that a proxy can decide which future versions of 
this License can be used, that proxy’s public state- 
ment of acceptance of a version permanently autho- 
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GNU LESSER GENERAL PUBLIC LICENSE 
Version 3, 29 June 2007 

Copyright © 2007 Free Software Foundation, Inc. 
<http://fsf.org/> 

Everyone is permitted to copy and distribute verba- 
tim copies of this license document, but changing 
it is not allowed. 

This version of the GNU Lesser General Public Li- 
cense incorporates the terms and conditions of ver- 
sion 3 of the GNU General Public License, supple- 
mented by the additional permissions listed below. 
0. Additional Definitions. 

As used herein, “this License” refers to version 3 
of the GNU Lesser General Public License, and the 
“GNU GPL” refers to version 3 of the GNU General 
Public License. 

“The Library” refers to a covered work governed by 
this License, other than an Application or a Com- 
bined Work as defined below. 

An “Application” is any work that makes use of an 
interface provided by the Library, but which is not 
otherwise based on the Library. Defining a subclass 
of a class defined by the Library is deemed a mode 
of using an interface provided by the Library. 

A “Combined Work” is a work produced by com- 
bining or linking an Application with the Library. 
The particular version of the Library with which 
the Combined Work was made is also called the 
“Linked Version”. 

The “Minimal Corresponding Source” for a Com- 
bined Work means the Corresponding Source for 
the Combined Work, excluding any source code for 
portions of the Combined Work that, considered in 
isolation, are based on the Application, and not on 
the Linked Version. 

The “Corresponding Application Code” for a Com- 
bined Work means the object code and/or source 
code for the Application, including any data and 
utility programs needed for reproducing the Com- 
bined Work from the Application, but excluding the 





System Libraries of the Combined Work. 1. 
tion to Section 3 of the GNU GPL. 

You may convey a covered work under sections 3 
and 4 of this License without being bound by sec- 
tion 3 of the GNU GPL. 2. Conveying Modified 
Versions. 

If you modify a copy of the Library, and, in your 
modifications, a facility refers to a function or data 
to be supplied by an Application that uses the fa- 
cility (other than as an argument passed when the 
facility is invoked), then you may convey a copy of 
the modified version: 

* a) under this License, provided that you make a 
good faith effort to ensure that, in the event an Ap- 
plication does not supply the function or data, the 
facility still operates, and performs whatever part 
of its purpose remains meaningful, or * b) under 
the GNU GPL, with none of the additional permis- 
sions of this License applicable to that copy. 

3. Object Code Incorporating Material from Li- 
brary Header Files. 

The object code form of an Application may incor- 
porate material from a header file that is part of 
the Library. You may convey such object code un- 
der terms of your choice, provided that, if the in- 
corporated material is not limited to numerical pa- 
rameters, data structure layouts and a 
small macros, inline functions and templates (ten 
or fewer lines in length), you do both of the follow- 
ing: 

* a) Give prominent notice with each copy of the 
object code that the Library is used in it and that 
the Library and its use are covered by this License. 
* b) Accompany the object code with a copy of the 
GNU GPL and this license document. 

4. Combined Works. 

You may convey a Combined Work under terms of 
your choice that, taken together, effectively do not 
restrict modification of the portions of the Library 
contained in the Combined Work and reverse en- 


Excep- 





cessors, or 


rizes you to choose that version for the Document. 
11. RELICENSING 

"Massive Multiauthor Collaboration Site" (or 
"MMC Site") means any World Wide Web server 
that publishes copyrightable works and also pro- 
vides prominent facilities for anybody to edit those 
works. A public wiki that anybody can edit is 
an example of such a server. A "Massive Multiau- 
thor Collaboration" (or "MMC") contained in the 
site means any set of copyrightable works thus pub- 
lished on the MMC site. 

"CC-BY-SA" means the Creative Commons 
Attribution-Share Alike 3.0 license published by 
Creative Commons Corporation, a not-for-profit 
corporation with a principal place of business in 
San Francisco, California, as well as future copyleft 
versions of that license published by that same 
organization. 

"Incorporate" means to publish or republish a Doc- 
ument, in whole or in part, as part of another Doc- 
ument. 

An MMC is "eligible for relicensing" if it is licensed 
under this License, and if all works that were first 
published under this License somewhere other than 
this MMC, and subsequently incorporated in whole 
or in part into the MMC, (1) had no cover texts or 
invariant sections, and (2) were thus incorporated 
prior to November 1, 2008. 

The operator of an MMC Site may republish an 
MMC contained in the site under CC-BY-SA on the 


gineering for debugging such modifications, if you 
also do each of the following: 

* a) Give prominent notice with each copy of the 
Combined Work that the Library is used in it and 
that the Library and its use are covered by this Li- 
cense. * b) Accompany the Combined Work with a 
copy of the GNU GPL and this license document. * 
c) For a Combined Work that displays copyright no- 
tices during execution, include the copyright notice 
for the Library among these notices, as well as a ref- 
erence directing the user to the copies of the GNU 
GPL and this license document. * d) Do one of the 
following: o 0) Convey the Minimal Corresponding 
Source under the terms of this License, and the Cor- 
responding Application Code in a form suitable for, 
and under terms that permit, the user to recombine 
or relink the Application with a modified version 
of the Linked Version to produce a modified Com- 
bined Work, in the manner specified by section 6 of 
the GNU GPL for conveying Corresponding Source. 
o 1) Use a suitable shared library mechanism for 
linking with the Library. A suitable mechanism 
is one that (a) uses at run time a copy of the Li- 
brary already present on the user's computer sys- 
tem, and (b) will operate properly with a modified 
version of the Library that is interface-compatible 
with the Linked Version. * e) Provide Installation 
Information, but only if you would otherwise be re- 
quired to provide such information under section 6 
of the GNU GPL, and only to the extent that such 
information is necessary to install and execute a 
modified version of the Combined Work produced 
by recombining or relinking the Application with 
a modified version of the Linked Version. (If you 
use option 4d0, the Installation Information must 
accompany the Minimal Corresponding Source and 
Corresponding Application Code. If you use option 
4d1, you must provide the Installation Information 
in the manner specified by section 6 of the GNU 
GPL for conveying Corresponding Source.) 

5. Combined Libraries. 





same site at any time before August 1, 2009, pro 
vided the MMC is eligible for relicensing. ADDEN: 
DUM: How to use this License for your documents 
To use this License in a document you have written 
include a copy of the License in the document and 
put the following copyright and license notices just 
after the title page: 

Copyright (C) YEAR YOUR NAME. Permission i: 
granted to copy, distribute and/or modify this doc 
ument under the terms of the GNU Free Documen 
tation License, Version 1.3 or any later version pub 
lished by the Free Software Foundation; with no 
Invariant Sections, no Front-Cover Texts, and no 
Back-Cover Texts. A copy of the license is included 
in the section entitled "GNU Free Documentation 
License". 

If you have Invariant Sections, Front-Cover Texts 
and Back-Cover Texts, replace the "with 
Texts." line with this: 

with the Invariant Sections being LIST THEIR TI 
TLES, with the Front-Cover Texts being LIST, and 
with the Back-Cover Texts being LIST. 

If you have Invariant Sections without Cover Texts 
or some other combination of the three, merge 
those two alternatives to suit the situation. 

If your document contains nontrivial examples of 
program code, we recommend releasing these exam. 
ples in parallel under your choice of free software 
license, such as the GNU General Public License 
to permit their use in free software. 





You may place library facilities that are a work 
based on the Library side by side in a single library 
together with other library facilities that are not 
Applications and are not covered by this License 
and convey such a combined library under terms of 
your choice, if you do both of the following: 

* a) Accompany the combined library with a copy 
of the same work based on the Library, uncombined 
with any other library facilities, conveyed under 
the terms of this License. * b) Give prominent no 
tice with the combined library that part of it is a 
work based on the Library, and explaining where 
to find the accompanying uncombined form of the 
same work. 

6. Revised Versions of the GNU Lesser General 
Public License. 

The Free Software Foundation may publish revised 
and/or new versions of the GNU Lesser General 
Public License from time to time. Such new ver 
sions will be similar in spirit to the present version 
but may differ in detail to address new problems or 
concerns. 

Each version is given a distinguishing version num 
ber. If the Library as you received it specifies that 
a certain numbered version of the GNU Lesser Gen 
eral Public License *or any later version" applies to 
it, you have the option of following the terms and 
conditions either of that published version or of any 
later version published by the Free Software Foun 
dation. If the Library as you received it does not 
specify a version number of the GNU Lesser Gen 
eral Public License, you may choose any version of 
the GNU Lesser General Public License ever pub 
lished by the Free Software Foundation. 

If the Library as you received it specifies that a 
proxy can decide whether future versions of the 
GNU Lesser General Public License shall apply 
that proxy's public statement of acceptance of 
any version is permanent authorization for you to 
choose that version for the Library. 


